以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  执行关闭程序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101964)
--  作者：裴保民
--  发布时间：2017/6/10 18:35:00
--  执行关闭程序
怎样在主窗体上设置一个关闭按钮，单击按钮执行关闭程序，并在关闭程序之前先判断是否有所有的表内容是否有改过。来执行是保存修改后退出程序还是不保存修改过的数据直接退出程序。
--  作者：有点色
--  发布时间：2017/6/11 16:02: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
--  作者：peibaomin
--  发布时间：2017/6/11 22:24:00
--  
是可以判断数据表中的数据是否修改过，也能保存，我的意思是保存数据或选择不保存数据后需要关闭程序
--  作者：有点蓝
--  发布时间：2017/6/12 8:44:00
--  
最后加上：Syscmd.Project.Exit()

Syscmd.Project.Exit()正常退出Foxtable
Syscmd.Project.Exit(True)先保存数据，然后退出Foxtable
Syscmd.Project.Exit(False)不保存数据，强行退出Foxtable