- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]SkipSave的用法 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72280)
-- 发布时间：2015/7/27 15:16:00
-- [求助]SkipSave的用法
我在项目的beforecloseproject事件中设置了如下代码，希望当我选择对话框的“是”时，系统能直接退出
Dim n As Integer = 0
Dim Result As DialogResult
For Each dt As DataTable In DataTables
If dt.HasChanges Then
Result = Messagebox.Show("数据未保存,确定要退出系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then \'如果用户选择否
n = n + 1
e.Cancel = True \'
Exit For
Else
n = n + 1
Exit For
e.skipsave = True
Return
End If
End If
Next
If n <= 0 Then
Result = Messagebox.Show("确定要退出系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then \'如果用户选择否
e.Cancel = True \'
End If
End If
但为何系统在我点击“是”之后，仍弹出系统的退出提示窗口呢（如下图）？代码需要如何修改？
此主题相关图片如下：qq截图01.jpg
此主题相关图片如下：qq截图02.jpg
-- 发布时间：2015/7/27 15:19:00
--
Exit For 写在后面，不然不会执行 e.skipsave = True
-- 发布时间：2015/7/27 15:29:00
--
确实是这个问题，谢谢