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