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