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