beforeclose事件问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请老师帮忙看一下下面这段代码写在模式窗口 beforeclose 事件能弹出请先保存数据后，再关闭

但是窗口还是关闭了感觉 e.Cancel =True 这句代码失灵了这个问题有时候出现有时候不出现，只要出现过一次第二次还是会出现进入编辑窗口未做任何修改再次打开就不会关闭

在好多台电脑都出现这个问题

If DataTables("表A").HasChanges =True Or DataTables("表B").HasChanges =True Then

If Tables("表B").Rows.Count =0 Then

DataTables("表A").RejectChanges()

DataTables("表B").RejectChanges()

Else

Dim Result As DialogResult

Result= messagebox.Show("数据有变动,请保存!","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)

If Result=DialogResult.no Then

DataTables("表A").RejectChanges()

DataTables("表B").RejectChanges()

ElseIf Result=DialogResult.yes Then

MessageBox.Show("请先保存数据后,再关闭!")

e.Cancel =True

End If

[此贴子已经被作者于2019/10/4 9:49:24编辑过]

谢谢狐狸爸爸我要实现的效果点是弹出不关闭窗口

现在的问题是我点了是有时候不关闭有时候直接关闭窗口了

Dim Result As DialogResult

Result= messagebox.Show("数据有变动,请保存!","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)

If Result=DialogResult.no Then

DataTables("表A").RejectChanges()

DataTables("表B").RejectChanges()

ElseIf Result=DialogResult.yes Then

MessageBox.Show("请先保存数据后,再关闭!")

e.Cancel =True

End If

[此贴子已经被作者于2019/10/4 10:06:07编辑过]

谢谢如果逻辑错是不会弹出的现在的问题是弹出还关闭窗口

下载信息 [文件大小：下载次数： ]
点击浏览该文件:20191004_140900.zip

附件为操作视频

以下为beforeclose事件代码

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

[此贴子已经被作者于2019/10/4 14:26:09编辑过]

主题：beforeclose事件问题