- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109264)
-- 发布时间：2017/11/8 9:52:00
-- [求助]
老师好！
窗口绑定一张表，在对该表进行了修改后，切换或关闭窗口时，提示保存信息，要钟对全部记录，该怎么实现？如下图谢谢！
此主题相关图片如下：qq图片20171108094733.png
-- 发布时间：2017/11/8 9:59:00
--
窗口BeforeClose事件
Dim dt As DataTable = Tables("表A").DataTable
If dt.HasChanges Then
Dim Result As DialogResult
Result = MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
dt.Save
End If
End If
-- 发布时间：2017/11/8 10:39:00
--
老师你好！
出现提示，按“是”是保存对的，但“否”应该是撤消增加或修改，然后关闭窗口，现在是按了“否”后，记录还是编缉状态，没有保存。“取消”应该是取消关闭窗口，但现在窗口关闭了，与“否”一样，只是没有保存。
请老师帮忙修改一下，谢谢！
-- 发布时间：2017/11/8 10:50:00
--
Dim dt As DataTable = Tables("表A").DataTable
If dt.HasChanges Then
Dim Result As DialogResult
Result = MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
dt.Save
ElseIf result = DialogResult.No Then
dt.RejectChanges
ElseIf result = DialogResult.Cancel Then
e.cancel = True
End If
End If
-- 发布时间：2017/11/8 10:54:00
--
谢谢老师，已解决！