以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于关闭独立窗口后,弹出保存取消的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137065)

--  作者:iswear512
--  发布时间:2019/6/27 14:31:00
--  关于关闭独立窗口后,弹出保存取消的问题
请问下老师关于关闭独立窗口后,弹出保存取消的问题

前置条件:
独立窗口是通过

把窗口设置成【模式】窗口;

afterOpenProject事件

forms("窗口1").Show

BaseMainForm.Close

这样设置的


独立窗口点击关闭后,提示  是否保存?   是  否  取消  三个选项
点取消后, 窗口消失,退回到表的状态
不知道是为啥 

--  作者:有点甜
--  发布时间:2019/6/27 14:49:00
--  

那改成

 

forms("窗口1").Show

datatables.save

BaseMainForm.Close


--  作者:iswear512
--  发布时间:2019/6/27 15:52:00
--  
 这样会造成强制保存然后关闭啊

可是还有不想保存的情况  

是否保存?
是  否  取消    
这三个按钮其实都是需要的 。


--  作者:有点甜
--  发布时间:2019/6/27 15:55:00
--  
以下是引用iswear512在2019/6/27 15:52:00的发言:
 这样会造成强制保存然后关闭啊

可是还有不想保存的情况  

是否保存?
是  否  取消    
这三个按钮其实都是需要的 。

 

那你自己弹出【是】【否】,然后处理

 

Dim Result As DialogResult
Result = MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    DataTables.save
Else
    DataTables.RejectChanges
End If