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