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
|