Dim dataViewGeändert As New DataView(Tool.TDSAlle.Tool.GetChanges)
        Dim dataViewNeu As New DataView(Tool.TDSAlle.Tool.GetChanges)
        Dim dataViewGelöscht As New DataView(Tool.TDSAlle.Tool.GetChanges)
 
        dataViewGeändert.RowStateFilter = DataViewRowState.ModifiedOriginal
        dataViewNeu.RowStateFilter = DataViewRowState.Added
        dataViewGelöscht.RowStateFilter = DataViewRowState.Deleted
 
        DGVGeändert.DataSource = dataViewGeändert
        DGVNeu.DataSource = dataViewNeu
        DGVGelöscht.DataSource = dataViewGelöscht

For i As Integer = 0 To DGVGeändert.Rows.Count - 1
            dgvAlle.Rows.Add(DGVGeändert.Rows(j).Cells().ToString)
        Next