以文本方式查看主题

-  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=140345)

--  作者:system1977
--  发布时间:2019/9/3 21:11:00
--  关闭窗口提示保存怎样做得到
1、使用录入窗口录入数据,点击关闭窗口的时候判断表内容有没有被修改,有修改则提示保存,没变动直接关闭窗口
2、设置一个按钮,能撤消此次保存前录入的所有数据?

--  作者:有点蓝
--  发布时间:2019/9/3 21:46:00
--  
窗口BeforeClose事件

If DataTables("AA").HasChanges Then
    If MessageBox.Show("保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes  Then
        DataTables("AA").save
    Else
        DataTables("AA").RejectChanges
    End If
End If

HasChanges逻辑型,判断DataTable的数据是否已经被修改
RejectChanges撤销自打开文件或最近一次保存以来,对该表做出的修改。

--  作者:system1977
--  发布时间:2019/9/4 11:36:00
--  
谢啦!!!!!!!!!!!!!