请老师帮忙看一下 下面这段代码 写在模式窗口 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