- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于关闭程序 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102012)
-- 发布时间：2017/6/11 23:16:00
-- 关于关闭程序
单击关闭程序按钮执行下列代码
For Each dt As DataTable In DataTables
If dt.HasChanges Then
Dim Result As DialogResult
Result = MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
DataTables.save
Syscmd.Project.Exit(True)
Exit For
Else
Syscmd.Project.Exit(False)
End If
Else
Syscmd.Project.Exit()
End If
Next
这句代码有问题吗？
在运行的时候如果表发生修改时，会弹出一个对话框，提示保存数据吗？如果选择取消时会出错，不知道那错了，请老师给看看
此主题相关图片如下：12.png
我怎么查也查不出，这段代码中根本没有设置的这个提示框呢？
[此贴子已经被作者于2017/6/11 23:38:04编辑过]
-- 发布时间：2017/6/12 1:01:00
--
代码逻辑有问题。代码顺序要重新调整。
-- 发布时间：2017/6/12 9:13:00
--
For Each dt As DataTable In DataTables
If dt.HasChanges Then
Dim Result As DialogResult
Result = MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
DataTables.save
Exit For
End If
End If
Next
Syscmd.Project.Exit(False)
-- 发布时间：2017/6/12 14:12:00
--
如果单击关闭按钮点错了应该有一个取消操作提示选项取消关闭操作
-- 发布时间：2017/6/12 14:16:00
--
For Each dt As DataTable In DataTables
If dt.HasChanges Then
Dim Result As DialogResult
Result = MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
DataTables.save
Exit For
ElseIf result = DialogResult.Cancel Then
Return
End If
End If
Next
Syscmd.Project.Exit(False)