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
MessageBox.Show("No new values proposed")
End Sub
上一页 [1] [2]
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18