r.BeginEdit

    r(1) = Edit1.Text

    If r.HasVersion(datarowversion.Proposed) Then

       If r(1, DataRowVersion.Current) Is r(1, DataRowversion.Proposed) Then

          MessageBox.Show("The original and the proposed are the same")

          r.CancelEdit

          Exit Sub

       Else

          r.AcceptChanges

       End If

    Else

       MessageBox.Show("No new values proposed")

    End If

 End Sub

上一页  [1] [2]