Private Sub Trv_NodeMouseClick(sender As Object,
            e As TreeNodeMouseClickEventArgs) Handles Trv.NodeMouseClick
 
        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())
 
            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
        '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
    Private Sub ArtikelDGV_CellEndEdit(sender As Object,
    e As DataGridViewCellEventArgs) Handles ArtikelDGV.CellEndEdit
 
        TempTableModified = True
    End Sub
    'Speichervorgang
    Private Sub SaveTempTableRows()
 
        For i As Integer = 0 To dtx.Rows.Count - 1
            'Spaltenbezeichner wie oben
            TempTableRows(i)("Erfassungsdatum") = dtx(i)("Erfassungsdatum")
            TempTableRows(i)("Artikelnummer") = dtx(i)("Artikelnummer")
            TempTableRows(i)("Artikelbezeichnung") = dtx(i)( _
              "Artikelbezeichnung")
            TempTableRows(i)("Mindestbestand") = dtx(i)("Mindestbestand")
            TempTableRows(i)("Meldeschwelle") = dtx(i)("Meldeschwelle")
            TempTableRows(i)("Maximo") = dtx(i)("Maximo")
            TempTableRows(i)("erledigt") = dtx(i)("erledigt")
            '....
        Next i
        TempTableModified = False
    End Sub