以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]退出按钮  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126921)
--  作者：scmzphili
--  发布时间：2018/10/30 22:27:00
--  [求助]退出按钮

我想在窗口设计一个退出按钮，点击时提示 保存后 退出 或者 不保存 返回修改，或者 不保存退出。

怎么用代码实现？谢谢！
--  作者：有点蓝
--  发布时间：2018/10/30 22:52:00
--  
窗口beforeclose事件

If DataTables("表A").HasChanges Then
    Dim Result As DialogResult
    Result = MessageBox.Show("保存?", "提示", MessageBoxButtons.YesNoCancel , MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        DataTables("表A").Save
    ElseIf Result = DialogResult.Cancel
        e.Cancel = True
        Return
    End If
End If
--  作者：scmzphili
--  发布时间：2018/11/5 22:08:00
--  

论坛迁移，数据丢了。上次有个大侠给了代码

If DataTables("表A").HasChanges Then
    Dim Result As DialogResult
    Result = MessageBox.Show("保存?", "提示", MessageBoxButtons.YesNoCancel , MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        DataTables("表A").Save
    ElseIf Result = DialogResult.No Then
        DataTables("表A").RejectChanges
    ElseIf Result = DialogResult.Cancel
        e.Cancel = True
        Return
    End If
End If

If DataTables("表A").HasChanges Then
    Dim Result As DialogResult
    Result = MessageBox.Show("保存?", "提示", MessageBoxButtons.YesNoCancel , MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        DataTables("表A").Save
    ElseIf Result = DialogResult.No Then
        DataTables("表A").RejectChanges
    ElseIf Result = DialogResult.Cancel
        e.Cancel = True
        Return
    End If
End If