'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