Diese Zeile gehört bereits zu einer anderen Tabelle.

 
Private Sub New()
 
	InitializeComponent()
 
	dtOriginal = open("SELECT * FROM Tabelle")
  Me.dgvOriginal.DataSource = dtOriginal
 
  dtEdit = dtOriginal.Clone
  Me.dgvEdit.DataSource = dtEdit
 
End Sub
 
 
Private Sub Save()
 
  For Each dr As DataRow In dtEdit.Rows
 
    Dim temprow As DataRow
 
    temprow = dtOriginal.NewRow
    temprow = dr
 
    dtEdit.Rows.Remove(temprow)
 
    dtOriginal.Rows.Add(temprow)
 
  Next
 
End Sub