1、比如BeforeClose事件：if tables(“表A”).current.isnull("第一列") then
Dim dlg As DialogResult = MessageBox.Show("第一列为空是否退出", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If dlg = DialogResult.No
e.Cancel = True
End If
end if
2、保存提示
If DataTables("Users").HasChanges Then
Dim dlg As DialogResult = MessageBox.Show("员工表还有未保存的数据,选是保存并退出,选否退出不保存,选取消返回.", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If dlg = DialogResult.Yes Then
DataTables("Users").Save
ElseIf dlg = DialogResult.Cancel
e.Cancel = True
End If
End If
加好友 
发短信
Post By：2019/8/15 17:44:00 [显示全部帖子]
