If DataTables("表A").HasChanges Then Dim result As Object = MessageBox.Show("未保存内容,是否保存?", "提示", MessageBoxButtons.yesnoCancel, MessageBoxIcon.Question) If result = DialogResult.no Then DataTables("表A").RejectChanges ElseIf result = DialogResult.yes Then DataTables("表A").save Else e.cancel = True End If End If
加好友 
发短信
Post By：2014/11/26 10:48:00 [显示全部帖子]
