以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29633)
--  作者：yq01119
--  发布时间：2013/3/10 22:00:00
--  [求助]

我创建了一【货品信息】窗口，给此窗口添加【关闭】功能，我想在关闭窗口的时候如果产品信息有改动过可以有提示跳出，是否需要保存，设置代码如下

 

 

 If MessageBox.Show("产品表已经被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
 DataTables("货品信息").Save()
 End If

Forms("货品信息").Close

 

但是我发现，弹出的对话框即使选择“是”也会保存，选择“否”也会保存，这是什么原因呢

如果去掉提示框，就直接　Forms("货品信息").Close　　【货品信息】窗口的信息依然会保存已经修改的。

 

怎么设置能点击【关闭】而不修改内容，直接退出呢　　　请狐前辈们赐代码
--  作者：双轨制
--  发布时间：2013/3/10 22:02:00
--  

If MessageBox.Show("产品表已经被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
    DataTables("货品信息").Save()
Else
    DataTables("货品信息").RejectChanges
End If

Forms("货品信息").Close