Public Sub tvBem_Laden()
' TreeView laden
Dim objBem As Object
Dim Nod As Object
Dim rst As DAO.Recordset
 
   On Error GoTo tvBem_Laden_Error
 
   LockWindowUpdate (tvBem.hwnd)
 
   ' Verweis auf Treeview setzen
   Set objBem = Me!tvBem.Object
   'Treeview leeren
   objBem.Nodes.Clear
 
   ' Alle Plattformen
   sSql = "SELECT * FROM tblPlattform"
   Set rst = DB.OpenRecordset(sSql, dbOpenSnapshot)
   ' TreeView sortiert füllen
   Do While Not rst.EOF
      ' Key besteht aus "P" und PlattformText
      Set Nod = objBem.Nodes.Add(Key:="P" & CStr(rst!PlID), _
                                 Text:="Typ " & rst!PlText, _
                                 Image:=6)
      Nod.ExpandedImage = 1
      Nod.Expanded = True
      rst.MoveNext
   Loop
   rst.Close
 
   ' Alle Produktgruppen eintragen
   sSql = "SELECT DISTINCT  tblArtikel.Pl_ID, tblArtikel.Pr_ID," & _
     "tblProduktgruppe.PrText " & _
          "FROM tblProduktgruppe RIGHT JOIN (tblPlattform RIGHT JOIN tblArtikel" & _
          "ON tblPlattform.PlID = tblArtikel.Pl_ID) " & _
          "ON tblProduktgruppe.PrID = tblArtikel.Pr_ID"
 
   Set rst = DB.OpenRecordset(sSql, dbOpenSnapshot)
 
   Do While Not rst.EOF
      Set Nod = objBem.Nodes.Add(relative:="P" & CStr(rst!Pl_ID), _
                                 Relationship:=4, _
                                 Key:="G" & CStr(rst!Pr_ID) & "P" & CStr( _
                                 rst!Pl_ID), _
                                 Text:="Zsb.: " & rst!PrText, _
                                 Image:=21)
      rst.MoveNext
   Loop
   rst.Close
 
   ' Alle Artikel eintragen
   sSql = "SELECT ArtID, Pr_ID, Pl_ID, ArtSachnummer FROM tblArtikel"
 
   Set rst = DB.OpenRecordset(sSql, dbOpenSnapshot)
 
   Do While Not rst.EOF
      Set Nod = objBem.Nodes.Add(relative:="G" & CStr(rst!Pr_ID) & "P" & CStr( _
        rst!Pl_ID), _
                                 Relationship:=4, _
                                 Key:="B" & CStr(rst!ArtID), _
                                 Text:=rst!ArtSachnummer, _
                                 Image:=15)
      rst.MoveNext
   Loop
   rst.Close
 
 
   On Error GoTo 0
   LockWindowUpdate (0)
   Exit Sub
 
 
 
 
tvBem_Laden_Error:
   LockWindowUpdate (0)
   MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure" & _
     "tvBem_Laden of VBA Dokument Form_frmBem"
 
End Sub

Public Class FrmDatatable2Treeview
 
    Dim dt As New DataTable
    Dim bs As New BindingSource
 
    Dim dgv As New DataGridView With
        {.Parent = Me, .Width = 300, .DataSource = bs}
 
    Dim trv As New TreeView With
        {.Parent = Me, .Left = 310, .Width = 300, .Scrollable = True}
 
 
    Private Sub FrmDatatable2Treeview_Load(sender As Object,
                                 e As EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(630, 300)
 
        'Testdaten
        With dt
            With .Columns
                .Add("Menge", GetType(Integer))
                .Add("Material") : .Add("Händler") : .Add("Qualität")
                .Add("Status")
            End With
 
            With .Rows
                .Add(20, "Holz", "Meyer", "Premium", "lagernd")
                .Add(40, "Kohlen", "Schulz", "Bruch", "bestellt")
                .Add(45, "Kohlen", "schulz", "Bruch", "bestellt")
                .Add(12, "Koks", "Schneider", "Bruch", "lagernd")
                .Add(10, "Holz", "Meyer", "Medium", "lagernd")
                .Add(15, "Kohlen", "Schulz", "Premium", "geliefert")
                .Add(20, "Propan", "Meyer", "Premium", "geliefert")
                .Add(5, "Propan", "Schulz", "Medium", "bestellt")
                .Add(10, "Holz", "Schulz", "Bruch", "lagernd")
                .Add(30, "Kohlen", "Müller", "Medium", "")
                .Add(20, "Kohlen", "Müller", "Bruch", "")
                .Add(200, "Koks", "Müller", "Bruch", "lagernd")
            End With
        End With
 
        bs.DataSource = dt 'Datenbindung
 
        'Sortieren der Datenspalten: Festlegung der Knotenfolge im Treeview 
        bs.Sort = "Händler DESC, Material, Qualität"
 
        'Übertragung von Spaltenwerten ins Treeview (Knoten-Hierarchie): 
        'Händler(2), Material(1), Qualität(3), Menge(0)
        DatatableColumns2Treeview(bs, New Integer() {2, 1, 3, 0}, trv)
 
    End Sub
 
 
    Private Function DatatableColumns2Treeview(ByVal bs As BindingSource, _
                     ByVal columnindices() As Integer, _
                     trv As TreeView) As Boolean
 
        If bs Is Nothing Or trv Is Nothing Then Return False
        If bs.DataSource Is Nothing Then Return False
        If Not TypeOf bs.DataSource Is DataTable Then Return False
 
        'Spaltenindices prüfen
        If columnindices Is Nothing OrElse
           columnindices.Length < 2 Then Return False
 
        For i As Integer = 0 To columnindices.Length - 1
            If columnindices(i) < 0 Or
                columnindices(i) > dt.Columns.Count - 1 Then Return False
        Next i
 
        trv.Nodes.Clear()
 
        Try
            'Zeilen in der Datatable durchlaufen 
            For r As Integer = 0 To bs.Count - 1
                Dim row As DataRow = DirectCast(bs(r), DataRowView).Row
                'Knoten-Pfad aus Spaltenwerten zusammensetzen
                Dim path As String = ""
                For i As Integer = 0 To columnindices.Length - 1
                    path &= row(columnindices(i)).ToString
                    If i < columnindices.Length - 1 Then path &= _
                      trv.PathSeparator
                Next i
 
                GetTreeNodeByPath(trv.Nodes, path)
            Next r
            Return True
        Catch
            Return False
        End Try
    End Function
 
 
    ''' <summary>In der Collection wird ein Pfad-Knoten ermittelt/erstellt</summary>
    ''' <param name="Nodes">Node-Collection</param>
    ''' <param name="path">zu suchender/zu erstellender Pfad</param>
    ''' <returns>Treenode</returns>
    Private Function GetTreeNodeByPath(ByVal Nodes As TreeNodeCollection, _
                                       path As String) As TreeNode
 
        Dim parts() As String =
            path.Split({trv.PathSeparator}, StringSplitOptions.None)
 
        Dim nd As TreeNode, ind As Integer, c As Integer = -1
 
        'Pfad durchlaufen
        Do
            c += 1
            ind = Nodes.IndexOfKey(parts(c))
            If ind = -1 Then
                'Pfad-Knoten fehlt in Auflistung, wird erstellt 
                nd = Nodes.Add(parts(c), parts(c))
            Else
                nd = Nodes(parts(c))
            End If
            Nodes = nd.Nodes
        Loop While c < parts.Length - 1
 
        Return nd
 
    End Function
End Class

SELECT 
Warengruppen.Warengruppe, 
Artikelgruppen.Artikelgruppe, 
Artikel.Erfassungsdatum, 
Artikel.Artikelbezeichnung, 
Artikel.Artikelnummer, 
Artikel.MAXIMO
FROM Artikelgruppen 
RIGHT JOIN (Warengruppen RIGHT JOIN Artikel 
ON Warengruppen.ID = Artikel.WarengruppeID) 
ON Artikelgruppen.ID = Artikel.ArtikelgruppeID;

Public Class frmDataset2Treeview
 
    Dim ds As New DataSet
 
    Dim trv As New TreeView With _
        {.Parent = Me, .Dock = DockStyle.Fill}
 
    Dim bs As New BindingSource
 
 
    Private Sub CreateTableData(ByVal dt As DataTable)
        'Hilfsfunktion
        Const n As Integer = 20
 
        dt.Columns.Add("ID", GetType(Integer))
        dt.Columns.Add("Value", GetType(String))
        dt.Columns.Add("Key", GetType(Integer))
        dt.PrimaryKey = {dt.Columns(0)}
 
        Dim rndm As New Random(123)
        For i As Integer = 0 To n - 1
            Dim row As DataRow = dt.NewRow
            row(0) = i
            row(2) = rndm.Next(0, n) 'Fremdschlüssel
            row(1) = dt.TableName & "_Value_" & row(2).ToString
            dt.Rows.Add(row)
        Next i
    End Sub
 
 
    Private Sub frmDataset2Treeview_Load(sender As Object,
                              e As EventArgs) Handles MyBase.Load
 
        'Im Dataset: 4 Tabellen mit Daten erzeugen
        For i As Integer = 1 To 4
            ds.Tables.Add(New DataTable With _
                 {.TableName = "DT" & i.ToString})
 
            CreateTableData(ds.Tables(i - 1))
        Next i
 
        'Tabellen verknüpfen / Datarelations erstellen
        'In jeder Tabelle ist ID die Schlüssel-Spalte (0), 
        'Key die Fremdschlüssel-Spalte (2) und 
        'Value die im Treeview anzuzeigende Datenspalte (1) 
        For i As Integer = 0 To ds.Tables.Count - 2
            Dim dr As New DataRelation _
             (ds.Tables(i).TableName & ds.Tables(i + 1).TableName,
              ds.Tables(i).Columns(0), ds.Tables(i + 1).Columns(2))
            ds.Relations.Add(dr)
        Next i
 
        'Diverse Hilfsvariablen 
        'Treeview-Knoten gemäß Datarelations erstellen
        Dim nd_i, nd_k, nd_l As TreeNode
        'aktuelle Datarow (Referenz) in den Schleifen
        Dim row_i, row_k, row_l, row_m As DataRow  
        'Name der Datarelation
        Dim rel_i, rel_k, rel_l As String       
        'Tabellen-Index der im TRV anzuzeigenden Spalte   
        Dim col_i, col_k, col_l, col_m As Integer  
        'anzuzeigender Daten-Wert im Treeview        
        Dim val_i, val_k, val_l As String    
 
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
 
            row_i = ds.Tables(0).Rows(i)
            col_i = 1
            val_i = row_i(col_i).ToString
            nd_i = GetNode(trv.Nodes, val_i)
            rel_i = ds.Relations(0).RelationName
 
            For k As Integer = 0 To _
                row_i.GetChildRows(rel_i).Length - 1
 
                row_k = row_i.GetChildRows(rel_i)(k)
                col_k = 1
                val_k = row_k(col_k).ToString
                nd_k = GetNode(nd_i.Nodes, val_k)
                rel_k = ds.Relations(1).RelationName
 
                For l As Integer = 0 To _
                    row_k.GetChildRows(rel_k).Length - 1
 
                    row_l = row_k.GetChildRows(rel_k)(l)
                    col_l = 1
                    val_l = row_l(col_l).ToString
                    nd_l = GetNode(nd_k.Nodes, row_l(1).ToString)
                    rel_l = ds.Relations(2).RelationName
 
                    For m As Integer = 0 To _
                        row_l.GetChildRows(rel_l).Length - 1
 
                        row_m = row_l.GetChildRows(rel_l)(m)
                        col_m = 1
                        val_l = row_m(col_m).ToString
                        GetNode(nd_l.Nodes, val_l)
                    Next m
                Next l
            Next k
        Next i
 
    End Sub
 
 
    Private Function GetNode(nodes As TreeNodeCollection, Key As String,
                             Optional ByVal text As String = "") As TreeNode
        Dim ind As Integer = nodes.IndexOfKey(Key)
        If ind >= 0 Then Return nodes(ind)
        If String.IsNullOrWhiteSpace(text) Then text = Key
        Return nodes.Add(Key, text)
    End Function
End Class

 Private Sub initTreeView()
        TVArtikelverwaltung.Nodes.Clear()
        Try
            Dim parentrow As DataRow
            Dim ParentTable As DataTable
            Dim i As Integer = 1
            Dim j As Integer = 101
            Dim k As Integer = 1001
            ParentTable = LagerDB.Tables("Warengruppen")
            TVArtikelverwaltung.Nodes.Add("Artikelstamm")
            TVArtikelverwaltung.Nodes(0).Tag = "0"
            For Each parentrow In ParentTable.Rows
                Dim parentnode As TreeNode
                parentnode = New TreeNode(CStr(parentrow.Item(1))) ' Hier wird 
                ' dem Objekt die erste Zeile der zweiten Spalte übergeben
                TVArtikelverwaltung.Nodes(0).Nodes.Add(parentnode) ' wird am 
                ' ersten Ast ein Zweig hinzugefügt welches unseren Anzeigetext 
                ' und den Tag enthält
                parentnode.Tag = CStr(i)
                i += 1
                ''''populate child'''''
                '''''''''''''''''''''''
                Dim childrow As DataRow
                Dim childnode As TreeNode
                childnode = New TreeNode()
                For Each childrow In parentrow.GetChildRows( _
                  "Warengruppen_Artikelgruppen")
                    childnode = parentnode.Nodes.Add(childrow(1).ToString)
                    childnode.Tag = CStr(j)
                    ''''populate child2''''
                    ''''''''''''''''''''''''''
                    Dim childrow2 As DataRow
                    Dim childnode2 As TreeNode
                    childnode2 = New TreeNode()
                    j += 1
                    For Each childrow2 In childrow.GetChildRows( _
                      "Artikelgruppen_Artikel")
                        childnode2 = childnode.Nodes.Add(childrow2(3).ToString)
                        childnode2.Tag = CStr(k)
                        k += 1
                    Next childrow2
                    ''''''''''''''''''''''''
                Next childrow
                '''''''''''''''
            Next parentrow
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Public Class FrmDataRelations2Controls
 
    Dim ds As New DataSet
    Dim WithEvents trv As New TreeView With
            {.Parent = Me, .Width = 300}
 
    Dim dgv As New DataGridView With
            {.Parent = Me, .Left = 310, .AllowUserToAddRows = False}
 
    Dim dtx As New DataTable 'für Grid-Anzeige der letzten Tabelle
 
 
    Private Sub CreateTableData(ByVal dt As DataTable,
                                Optional ByVal n As Integer = 100)
 
        dt.Columns.Add("ID", GetType(Integer))
        dt.Columns.Add("Value", GetType(String))
        dt.Columns.Add("Key", GetType(Integer))
        dt.PrimaryKey = {dt.Columns(0)}
 
        Dim rndm As New Random(123)
        For i As Integer = 0 To n - 1
            Dim row As DataRow = dt.NewRow
            row(0) = i
            row(2) = rndm.Next(0, n) 'Fremdschlüssel
            row(1) = dt.TableName & "_Value_" & _
               i.ToString & "/" & row(2).ToString
            dt.Rows.Add(row)
        Next i
    End Sub
 
 
    Private Sub FrmDataRelations2Controls_Load(sender As Object,
                                         e As EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(620, 300)
        Me.FormBorderStyle = FormBorderStyle.Fixed3D
 
        'Im Dataset: 3 Tabellen mit Daten erzeugen
        For i As Integer = 1 To 3
            ds.Tables.Add(New DataTable With {.TableName = "DT" & i.ToString})
            CreateTableData(ds.Tables(i - 1))
        Next i
 
        'Tabellen verknüpfen / Datarelations erstellen
        For i As Integer = 0 To ds.Tables.Count - 2
            Dim dr As New DataRelation _
                    (ds.Tables(i).TableName & ds.Tables(i + 1).TableName,
                     ds.Tables(i).Columns(0), ds.Tables(i + 1).Columns(2))
            ds.Relations.Add(dr)
        Next i
 
        'Treeview-Knoten gemäß Datarelations erstellen
        Dim nd_i, nd_k As TreeNode
        Dim row_i, row_k As DataRow  'aktuelle Datarow in Schleife
        Dim rel_i, rel_k As String   'Name der Datarelation
        Dim col_i, col_k As Integer  'Index der anzuzeigenden Spalte im Treeview
        Dim val_i, val_k As String   'anzuzeigender Daten-Wert im Treeview
 
        dtx = ds.Tables(2).Clone
        dgv.DataSource = dtx
 
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            row_i = ds.Tables(0).Rows(i)
            col_i = 1
            val_i = row_i(col_i).ToString
            nd_i = GetNode(trv.Nodes, val_i)
            rel_i = ds.Relations(0).RelationName
 
            For k As Integer = 0 To row_i.GetChildRows(rel_i).Length - 1
                row_k = row_i.GetChildRows(rel_i)(k)
                col_k = 1
                val_k = row_k(col_k).ToString
                nd_k = GetNode(nd_i.Nodes, val_k)
                rel_k = ds.Relations(1).RelationName
 
                'Speichern einer Referenz des Childrows-Array im Knoten
                nd_k.Tag = row_k.GetChildRows(rel_k)
            Next k
        Next i
    End Sub
 
 
    Private Sub Trv_NodeMouseClick(sender As Object,
             e As TreeNodeMouseClickEventArgs) Handles trv.NodeMouseClick
 
        dtx.Clear()
        'Level = 1: zweite Knotenebene
        If e.Node.Level = 1 Then
            Dim rows As DataRow() = DirectCast(e.Node.Tag, DataRow())
            For i As Integer = 0 To rows.Length - 1
                dtx.Rows.Add(rows(i).ItemArray)
            Next i
        End If
    End Sub
 
 
    Private Function GetNode(nodes As TreeNodeCollection, Key As String,
                          Optional ByVal text As String = "") As TreeNode
        Dim ind As Integer = nodes.IndexOfKey(Key)
        If ind >= 0 Then Return nodes(ind)
        If String.IsNullOrWhiteSpace(text) Then text = Key
        Return nodes.Add(Key, text)
    End Function
 
End Class

 'Treeview-Knoten gemäß Datarelations erstellen
        Dim nd_i, nd_k As TreeNode
        Dim row_i, row_k As DataRow  'aktuelle Datarow in Schleife
        Dim rel_i, rel_k As String   'Name der Datarelation
        Dim col_i, col_k As Integer  'Index der anzuzeigenden Spalte im Treeview
        Dim val_i, val_k As String   'anzuzeigender Daten-Wert im Treeview
 
        dtx = ds.Tables(2).Clone
        dgv.DataSource = dtx

        'Treeview-Knoten gemäß Datarelations erstellen
        Dim nd_i, nd_k As TreeNode
        Dim row_i, row_k As DataRow  'aktuelle Datarow in Schleife
        Dim rel_i, rel_k As String   'Name der Datarelation
        Dim col_i, col_k As Integer  'Index der anzuzeigenden Spalte im Treeview
        Dim val_i, val_k As String   'anzuzeigender Daten-Wert im Treeview
 
        CreateTableData(dtx)
 
        dtx = LagerDB.Tables("Artikel").Clone
 
 
        For i As Integer = 0 To LagerDB.Tables("Warengruppen").Rows.Count - 1
            row_i = LagerDB.Tables("Warengruppen").Rows(i)
            col_i = 1
            val_i = row_i(col_i).ToString
            nd_i = GetNode(Trv.Nodes, val_i)
            rel_i = LagerDB.Relations( _
              "Warengruppen_Artikelgruppen").RelationName
 
            For k As Integer = 0 To row_i.GetChildRows(rel_i).Length - 1
                row_k = row_i.GetChildRows(rel_i)(k)
                col_k = 1
                val_k = row_k(col_k).ToString
                nd_k = GetNode(nd_i.Nodes, val_k)
                rel_k = LagerDB.Relations("Artikelgruppen_Artikel").RelationName
 
                'Speichern einer Referenz des Childrows-Array im Knoten
                nd_k.Tag = row_k.GetChildRows(rel_k)
            Next k
        Next i
 
        'Ascending, Descending
        With ArtikelDGV
            .DataSource = dtx
            'ID
            .Columns(0).Width = 60
            .Columns(0).DefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleCenter
            .Columns(0).SortMode = DataGridViewColumnSortMode.Automatic
            'Daten
            .Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns(1).DefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleCenter
            .Sort(ArtikelDGV.Columns(1), _
            System.ComponentModel.ListSortDirection.Descending)
            'Bauteil
            .Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns(2).DefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleCenter
            .Columns(2).SortMode = DataGridViewColumnSortMode.Automatic
        End With

'dtx = LagerDB.Tables("Artikel").Clone 
'(überträgt/erstellt das gesamte Tabellen-Schema)
 
'statt dessen: explizit erstelltes Spaltenschema
'(nur benötigte Spalten)
dtx.TableName = "WhatEver"
 
With dtx.columns
   .Add("ID", Gettype(Integer)) 'falls eindeutige Schlüssel benötigt werden
   .Add("Erfassungsdatum", Gettype(Date))
   .Add("Artikelnummer", Gettype(Integer)) 'eventuell Gettype(String)
   'usw ....
End With
 
dtx.Columns("ID").Unique = True 'Schlüssel muß eindeutig sein
 
dtx.PrimaryKey = _
   New DataColumn() {dtx.Columns("ID")} 'Schlüssel ggf. einrichten

 Private Sub Trv_NodeMouseClick(sender As Object,
            e As TreeNodeMouseClickEventArgs) Handles Trv.NodeMouseClick
        dtx.Clear()
        'Level = 1: zweite Knotenebene
        If e.Node.Level = 1 Then
            Dim rows As DataRow() = DirectCast(e.Node.Tag, DataRow())
            For i As Integer = 0 To rows.Length - 1   "rows.Lenggth ist 6
                dtx.Rows.Add(rows(i).ItemArray)       "ItemArray Length ist 14 
            Next i
        End If
    End Sub

  If e.Node.Level = 2 Then
     'Hier kommen Datensätze mit vollständiger Tabellenstruktur an
     Dim rows As DataRow() = DirectCast(e.Node.Tag, DataRow())
 
     For i As Integer = 0 To rows.Length - 1
         'Hier wir eine neue Zeile mit reduz. Spalten-Schema erstellt
         Dim newrow As DataRow = dtx.NewRow
         'Hier ist die Spaltenzuordnung korrekt vorzunehmen
         'Annahme: die Spaltenbezeichner sind übernommen worden"
         newrow("ID") = i 'oder Schlüsselspalteneintrag aus rows(i)
         newrow("Artikelnummer") = rows(i)("Artikelnummer")
         newrow("Erfassungsdatum") = rows(i)("Erfassungsdatum")
         'usw.
         dtx.Rows.Add(newrow) 'aufbereitete Zeile in dtx eintragen
     Next i

  Dim dtx As New DataTable
    Private Sub init_TVArtikelverwaltung()
        Dim Rootnode As TreeNode = Nothing
        Const Database As String = "Artikelstamm"
        'Treeview-Knoten gemäß Datarelations erstellen
        Dim nd_i, nd_k As TreeNode
        Dim row_i, row_k As DataRow  'aktuelle Datarow in Schleife
        Dim rel_i, rel_k As String   'Name der Datarelation
        Dim col_i, col_k As Integer  'Index der anzuzeigenden Spalte im Treeview
        Dim val_i, val_k As String   'anzuzeigender Daten-Wert im Treeview
 
        '(nur benötigte Spalten)
        dtx.TableName = "Artikelstamm"
        'habe noch nicht verstanden wie die dtx an die Artikelrow kommt? für 
        ' das DGV
        With dtx.Columns
            .Add("ID", GetType(Integer))            'falls eindeutige Schlüssel 
            ' benötigt werden
            .Add("Erfassungsdatum", GetType(Date))
            .Add("Artikelnummer", GetType(String)) 'eventuell Gettype(String)
            .Add("Artikelbezeichnung", GetType(String))
            .Add("Mindestbestand", GetType(Integer))
            .Add("Meldeschwelle", GetType(Integer))
            .Add("Maximo", GetType(String))
            .Add("erledigt", GetType(Boolean))
        End With
        'Frage: benötige ich diese Zeile noch?
        dtx.PrimaryKey = _
           New DataColumn() {dtx.Columns("ID")} 'Schlüssel ggf. einrichten
        'Frage: Rootknoten TV-Überschrift? ist das so OK
        Rootnode = Trv.Nodes.Add(key:="Root", text:=Database, imageIndex:=0, _
          selectedImageIndex:=1)
 
        For i As Integer = 0 To LagerDB.Tables("Warengruppen").Rows.Count - 1
            row_i = LagerDB.Tables("Warengruppen").Rows(i)
            col_i = 1
            val_i = row_i(col_i).ToString
            nd_i = GetNode(Trv.Nodes, val_i)
            rel_i = LagerDB.Relations( _
              "Warengruppen_Artikelgruppen").RelationName
 
            For k As Integer = 0 To row_i.GetChildRows(rel_i).Length - 1
                row_k = row_i.GetChildRows(rel_i)(k)
                col_k = 1
                val_k = row_k(col_k).ToString
                nd_k = GetNode(nd_i.Nodes, val_k)
                rel_k = LagerDB.Relations("Artikelgruppen_Artikel").RelationName
 
                'Speichern einer Referenz des Childrows-Array im Knoten
                nd_k.Tag = row_k.GetChildRows(rel_k)
            Next k
        Next i
 
        'Ascending, Descending
        With ArtikelDGV
            .DataSource = dtx
            'ID
            .Columns(0).Width = 50
            .Columns(0).DefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleCenter
            .Columns(0).SortMode = DataGridViewColumnSortMode.Automatic
            'Datum
            .Columns(1).Width = 110
            .Columns(1).DefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleCenter
            .Sort(ArtikelDGV.Columns(1), _
            System.ComponentModel.ListSortDirection.Ascending)
            'Artikelnummer
            .Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns(2).DefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleLeft
            .Columns(2).SortMode = DataGridViewColumnSortMode.Automatic
            'Artikelbezeichnung
            .Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns(3).DefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleLeft
            .Columns(3).SortMode = DataGridViewColumnSortMode.Automatic
usw.

row_i = ds.Tables(0).Rows(i)
col_i = 1
val_i = row_i(col_i).ToString 'Schlüssel des Knotens
nd_i = GetNode(rootnode.Nodes, val_i) 'Referenz zum Knoten
rel_i = ds.Relations(0).RelationName  'Verknüpf. der Tabellen
'zusätzlich: Text des Knotens erweitern
nd_i.Text = val_i & _
   " (" & row_i.GetChildRows(rel_i).Length.ToString & ")"

  For i As Integer = 0 To LagerDB.Tables("Warengruppen").Rows.Count - 1
 
            row_i = LagerDB.Tables("Warengruppen").Rows(i)
            col_i = 1
            val_i = row_i(col_i).ToString
            nd_i = GetNode(Trv.Nodes, val_i)
            rel_i = LagerDB.Relations( _
              "Warengruppen_Artikelgruppen").RelationName
 
            For k As Integer = 0 To row_i.GetChildRows(rel_i).Length - 1
                row_k = row_i.GetChildRows(rel_i)(k)
                col_k = 1
                val_k = row_k(col_k).ToString
                nd_k = GetNode(nd_i.Nodes, val_k)
                rel_k = LagerDB.Relations("Artikelgruppen_Artikel").RelationName
                'Speichern einer Referenz des Childrows-Array im Knoten
                nd_k.Tag = row_k.GetChildRows(rel_k)
            Next k
            'zusätzlich: Text des Knotens erweitern
            nd_i.Text = val_i & _
                              " (" & row_i.GetChildRows(rel_i).Length.ToString _
                              & ")"
        Next i

Private Sub txtSearch_KeyDown(sender As Object, _
    e As KeyEventArgs) Handles txtSearch.KeyDown
 
    If e.KeyCode = Keys.Return Then
 
       Dim tn() As TreeNode = trv.Nodes.Find(txtSearch.Text, True)
       If tn Is Nothing OrElse tn.Length = 0 Then Exit Sub
 
       Dim tnx As TreeNode = Nothing 
       'erster gefundener Knoten im relevanten Level
 
       For i As Integer = 0 To tn.Length - 1
          'Such-Level korrekt angeben - 2 ??
          If tn(i).Level = 2 Then
             tnx = tn(i) : Exit For
          End If
       Next i
       If tnx Is Nothing Then Exit Sub
 
       'Ereignishandler rufen, um die Tabelle zu füllen
       Trv_NodeMouseClick _
         (Me, New TreeNodeMouseClickEventArgs(tnx, Nothing, 0, 0, 0))
 
       trv.SelectedNode = tnx
 
    End If
 
End sub

 Me.Validate()
        BindingSource.EndEdit()
 
        dict_BS_Pos.Clear()
        dict_BS_Pos.Add(BindingSource, BindingSource.Position)
        dict_BS_Pos.Add(BS_SD_Dokumente, BS_SD_Dokumente.Position)
        mod_Saver.SaveDataset(Me.LagerDB, dict_BS_Pos, _
          ArtikelTableAdapter.Adapter, DokumenteTableAdapter.Adapter)

 Private Sub BindingControls()
        'Datenbindungen an Controls 
        ' ---------------------------------------------------------------------
        ' ----------------------------------
        DSIDTextBox.DataBindings.Add(New Binding("Text", BindingSource, "ID", _
          False, DataSourceUpdateMode.OnPropertyChanged))
        ArtikelnummerTextBox.DataBindings.Add(New Binding("Text", _
        BindingSource, "Artikelnummer", False, _
        DataSourceUpdateMode.OnPropertyChanged))
        ArtikelbezeichnungTextBox.DataBindings.Add(New Binding("Text", _
        BindingSource, "Artikelbezeichnung", False, _
        DataSourceUpdateMode.OnPropertyChanged))
        MAXIMOTextBox.DataBindings.Add(New Binding("Text", BindingSource, _
        "MAXIMO", False, DataSourceUpdateMode.OnPropertyChanged))
        chb_Maximo.DataBindings.Add(New Binding("CheckState", BindingSource, _
        "erledigt", True, DataSourceUpdateMode.OnPropertyChanged))
        'Datenbindungen an Controls 
        ' ---------------------------------------------------------------------
        ' ----------------------------------
    End Sub

  dtx.TableName = "Artikelstamm"
        'habe noch nicht verstanden wie die dtx an die Artikelrow kommt? für 
        ' das DGV
        With dtx.Columns
            .Add("ID", GetType(Integer))            'falls eindeutige Schlüssel 
            ' benötigt werden
            .Add("Erfassungsdatum", GetType(Date))
            .Add("Artikelnummer", GetType(String)) 'eventuell Gettype(String)
            .Add("Artikelbezeichnung", GetType(String))
            .Add("Mindestbestand", GetType(Integer))
            .Add("Meldeschwelle", GetType(Integer))
            .Add("Maximo", GetType(String))
            .Add("erledigt", GetType(Boolean))
        End With
        'benötige ich diese Zeile noch?
        dtx.PrimaryKey = _
           New DataColumn() {dtx.Columns("ID")} 'Schlüssel ggf. einrichten
 LagerDB.BeginInit()
        LagerDB.Tables.Add(dtx)
        Dim drArtikel As New DataRelation("dtx", "Artikelstamm", "Artikel", New _
          String() {"ID"}, New String() {"ArtikelgruppeID"}, False)
        LagerDB.Relations.AddRange(New DataRelation() {drArtikel})
        LagerDB.EndInit()

 Dim TempTableRows As DataRow()
 Dim TempTableModified As Boolean

 'Speichern der zuvor editierten Daten
 If TempTableModified Then SaveTempTableRows()
 TempTableRows = Nothing
 
 dtx.Clear()
 
 If e.Node.Level = ???? Then
    'Hier kommen Datensätze mit vollständiger Tabellenstruktur an
    Dim Rows As DataRow() = DirectCast(e.Node.Tag, DataRow())
    If Rows.Length > 0 Then
       TempTableRows = Rows 'Referenzen der Dataset-Tabellenzeilen
       For i As Integer = 0 To Rows.Length - 1
          'siehe oben
       Next i
    end if
End If

  Private Sub dgv_CellEndEdit(sender As Object,
        e As DataGridViewCellEventArgs) Handles dgv.CellEndEdit
 
        TempTableModified = True
  End Sub

 Private Sub SaveTempTableRows()
 
     For i As Integer = 0 To dtx.Rows.Count - 1
        'Spaltenbezeichner wie oben
        TempTableRows(i)("Spaltenbezeichner") = dtx(i)("Spaltenbezeichner")
        '....
     Next i
 End Sub

 Private Sub Trv_NodeMouseClick(sender As Object,
            e As TreeNodeMouseClickEventArgs) Handles Trv.NodeMouseClick
        'Speichern der zuvor editierten Daten
        If TempTableModified Then SaveTempTableRows()
        TempTableRows = Nothing
        dtx.Clear()
        If e.Node.Level = 1 Then
            'Hier kommen Datensätze mit vollständiger Tabellenstruktur an
            Dim rows As DataRow() = DirectCast(e.Node.Tag, DataRow())
 
            For i As Integer = 0 To rows.Length - 1
                'Hier wir eine neue Zeile mit reduz. Spalten-Schema erstellt
                Dim newrow As DataRow = dtx.NewRow
                'Hier ist die Spaltenzuordnung korrekt vorzunehmen
                'Annahme: die Spaltenbezeichner sind übernommen worden"
                newrow("ID") = rows(i)("ID") 'oder Schlüsselspalteneintrag aus 
                ' rows(i)
                newrow("Erfassungsdatum") = rows(i)("Erfassungsdatum")
                newrow("Artikelnummer") = rows(i)("Artikelnummer")
                newrow("Artikelbezeichnung") = rows(i)("Artikelbezeichnung")
                newrow("Mindestbestand") = rows(i)("Mindestbestand")
                newrow("Meldeschwelle") = rows(i)("Meldeschwelle")
                newrow("Maximo") = rows(i)("Maximo")
                newrow("erledigt") = rows(i)("erledigt")
                'usw.
                dtx.Rows.Add(newrow) 'aufbereitete Zeile in dtx eintragen
            Next i
        End If
    End Sub
    Private Sub ArtikelDGV_CellEndEdit(sender As Object,
    e As DataGridViewCellEventArgs) Handles ArtikelDGV.CellEndEdit
 
        TempTableModified = True
    End Sub
    'Speichervorgang
    Private Sub SaveTempTableRows()
 
        For i As Integer = 0 To dtx.Rows.Count - 1
            'Spaltenbezeichner wie oben
            TempTableRows(i)("Erfassungsdatum") = dtx(i)("Erfassungsdatum")
            TempTableRows(i)("Artikelnummer") = dtx(i)("Artikelnummer")
            TempTableRows(i)("Artikelbezeichnung") = dtx(i)( _
              "Artikelbezeichnung")
            TempTableRows(i)("Mindestbestand") = dtx(i)("Mindestbestand")
            TempTableRows(i)("Meldeschwelle") = dtx(i)("Meldeschwelle")
            TempTableRows(i)("Maximo") = dtx(i)("Maximo")
            TempTableRows(i)("erledigt") = dtx(i)("erledigt")
            '....
        Next i
    End Sub

 Private Sub Trv_NodeMouseClick(sender As Object,
            e As TreeNodeMouseClickEventArgs) Handles Trv.NodeMouseClick
 
        dtx.Clear()
        If e.Node.Level = 1 Then
            'Hier kommen Datensätze mit vollständiger Tabellenstruktur an
            Dim rows As DataRow() = DirectCast(e.Node.Tag, DataRow())
 
            For i As Integer = 0 To rows.Length - 1
                'Hier wir eine neue Zeile mit reduz. Spalten-Schema erstellt
                Dim newrow As DataRow = dtx.NewRow
                'Hier ist die Spaltenzuordnung korrekt vorzunehmen
                'Annahme: die Spaltenbezeichner sind übernommen worden"
                newrow("ID") = rows(i)("ID") 'oder Schlüsselspalteneintrag aus 
                ' rows(i)
                newrow("Erfassungsdatum") = rows(i)("Erfassungsdatum")
                newrow("Artikelnummer") = rows(i)("Artikelnummer")
                newrow("Artikelbezeichnung") = rows(i)("Artikelbezeichnung")
                newrow("Mindestbestand") = rows(i)("Mindestbestand")
                newrow("Meldeschwelle") = rows(i)("Meldeschwelle")
                newrow("Maximo") = rows(i)("Maximo")
                newrow("erledigt") = rows(i)("erledigt")
                'usw.
                dtx.Rows.Add(newrow) 'aufbereitete Zeile in dtx eintragen
            Next i
        End If
        'Speichern der zuvor editierten Daten
        If TempTableModified Then SaveTempTableRows()
        TempTableRows = Nothing
        dtx.Clear()
 
        If e.Node.Level = 1 Then
            'Hier kommen Datensätze mit vollständiger Tabellenstruktur an
            Dim Rows As DataRow() = DirectCast(e.Node.Tag, DataRow())
            If Rows.Length > 0 Then
                TempTableRows = Rows 'Referenzen der Dataset-Tabellenzeilen
                For i As Integer = 0 To Rows.Length - 1
                    'Hier wir eine neue Zeile mit reduz. Spalten-Schema erstellt
                    Dim newrow As DataRow = dtx.NewRow
                    'Hier ist die Spaltenzuordnung korrekt vorzunehmen
                    'Annahme: die Spaltenbezeichner sind übernommen worden"
                    newrow("ID") = Rows(i)("ID") 'oder Schlüsselspalteneintrag 
                    ' aus rows(i)
                    newrow("Erfassungsdatum") = Rows(i)("Erfassungsdatum")
                    newrow("Artikelnummer") = Rows(i)("Artikelnummer")
                    newrow("Artikelbezeichnung") = Rows(i)("Artikelbezeichnung")
                    newrow("Mindestbestand") = Rows(i)("Mindestbestand")
                    newrow("Meldeschwelle") = Rows(i)("Meldeschwelle")
                    newrow("Maximo") = Rows(i)("Maximo")
                    newrow("erledigt") = Rows(i)("erledigt")
                    'usw.
                    dtx.Rows.Add(newrow) 'aufbereitete Zeile in dtx eintragen
                Next i
            End If
        End If
    End Sub
    Private Sub ArtikelDGV_CellEndEdit(sender As Object,
    e As DataGridViewCellEventArgs) Handles ArtikelDGV.CellEndEdit
 
        TempTableModified = True
    End Sub
    'Speichervorgang
    Private Sub SaveTempTableRows()
 
        For i As Integer = 0 To dtx.Rows.Count - 1
            'Spaltenbezeichner wie oben
            TempTableRows(i)("Erfassungsdatum") = dtx(i)("Erfassungsdatum")
            TempTableRows(i)("Artikelnummer") = dtx(i)("Artikelnummer")
            TempTableRows(i)("Artikelbezeichnung") = dtx(i)( _
              "Artikelbezeichnung")
            TempTableRows(i)("Mindestbestand") = dtx(i)("Mindestbestand")
            TempTableRows(i)("Meldeschwelle") = dtx(i)("Meldeschwelle")
            TempTableRows(i)("Maximo") = dtx(i)("Maximo")
            TempTableRows(i)("erledigt") = dtx(i)("erledigt")
            '....
        Next i
        TempTableModified = False
    End Sub

Private Sub Trv_NodeMouseClick(sender As Object,
            e As TreeNodeMouseClickEventArgs) Handles Trv.NodeMouseClick
 
        'Speichern der zuvor editierten Daten
        If TempTableModified Then SaveTempTableRows()
        TempTableRows = Nothing
        dtx.Clear()
 
        If e.Node.Level = 1 Then
            'Hier kommen Datensätze mit vollständiger Tabellenstruktur an
            Dim Rows As DataRow() = DirectCast(e.Node.Tag, DataRow())
            If Rows.Length > 0 Then
                TempTableRows = Rows 'Referenzen der Dataset-Tabellenzeilen
                For i As Integer = 0 To Rows.Length - 1
                    'Hier wir eine neue Zeile mit reduz. Spalten-Schema erstellt
                    Dim newrow As DataRow = dtx.NewRow
                    'Hier ist die Spaltenzuordnung korrekt vorzunehmen
                    'Annahme: die Spaltenbezeichner sind übernommen worden"
                    newrow("ID") = Rows(i)("ID") 'oder Schlüsselspalteneintrag 
                    ' aus rows(i)
                    newrow("Erfassungsdatum") = Rows(i)("Erfassungsdatum")
                    newrow("Artikelnummer") = Rows(i)("Artikelnummer")
                    newrow("Artikelbezeichnung") = Rows(i)("Artikelbezeichnung")
                    newrow("Mindestbestand") = Rows(i)("Mindestbestand")
                    newrow("Meldeschwelle") = Rows(i)("Meldeschwelle")
                    newrow("Maximo") = Rows(i)("Maximo")
                    newrow("erledigt") = Rows(i)("erledigt")
                    'usw.
                    dtx.Rows.Add(newrow) 'aufbereitete Zeile in dtx eintragen
                Next i
            End If
        End If
    End Sub

 Private Sub init_TVArtikelverwaltung()
        Dim Rootnode As TreeNode = Nothing
 
        Trv.Nodes.Clear()
        'Treeview-Knoten gemäß Datarelations erstellen
        Dim nd_i, nd_k As TreeNode
        Dim row_i, row_k As DataRow  'aktuelle Datarow in Schleife
        Dim rel_i, rel_k As String   'Name der Datarelation
        Dim col_i, col_k As Integer  'Index der anzuzeigenden Spalte im Treeview
        Dim val_i, val_k As String   'anzuzeigender Daten-Wert im Treeview
 
        For i As Integer = 0 To LagerDB.Tables("Warengruppen").Rows.Count - 1
 
            row_i = LagerDB.Tables("Warengruppen").Rows(i)
            col_i = 1
            val_i = row_i(col_i).ToString
            nd_i = GetNode(Trv.Nodes, val_i)
            rel_i = LagerDB.Relations( _
              "Warengruppen_Artikelgruppen").RelationName
 
            For k As Integer = 0 To row_i.GetChildRows(rel_i).Length - 1
                row_k = row_i.GetChildRows(rel_i)(k)
                col_k = 1
                val_k = row_k(col_k).ToString
                nd_k = GetNode(nd_i.Nodes, val_k)
                rel_k = LagerDB.Relations("Artikelgruppen_Artikel").RelationName
                'Speichern einer Referenz des Childrows-Array im Knoten
                nd_k.Tag = row_k.GetChildRows(rel_k)
                'zusätzlich: Text des Knotens erweitern
                nd_k.Text = val_k & _
                                  " (" & row_k.GetChildRows( _
                                  rel_k).Length.ToString & ")" & " Artikel"
                nd_k.ImageIndex = 3
            Next k
 
        Next i
 
 
    End Sub