- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 模式窗口 e.Cancel =True 失效 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141562)
-- 发布时间：2019/10/4 14:46:00
-- 模式窗口 e.Cancel =True 失效
|
请老师帮忙看一下 下面这段代码 写在模式窗口 beforeclose 事件 能弹出 请先保存数据后，再关闭
但是窗口 还是关闭了 感觉 e.Cancel =True 这句代码失灵了 这个问题有时候出现 有时候不出现 ，只要出现过一次 第二次还是会出现 进入编辑窗口 未做任何修改 再次打开 就不会关闭
在好多台电脑都出现这个问题
附件为录制的视频
If DataTables("出入库主表").HasChanges =True Or DataTables("出入库明细表").HasChanges =True Then
If Tables(e.Form.Name & "_制单表").Rows.Count =0 Then
DataTables("出入库主表").RejectChanges()
DataTables("出入库明细表").RejectChanges()
Else
Dim Result As DialogResult
Result= messagebox.Show("数据有变动,请保存!","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)
If Result=DialogResult.no Then
DataTables("出入库主表").RejectChanges()
DataTables("出入库明细表").RejectChanges()
ElseIf Result=DialogResult.yes Then
MessageBox.Show("请先保存数据后,再关闭!")
e.Cancel =True
End If
End If
End If | ||||
[此贴子已经被作者于2019/10/4 15:21:16编辑过]
-- 发布时间：2019/10/4 16:06:00
--
你可以升级到最新的版本看看，如果还有问题，再做个例子发上来