主题：[求助]帮忙看看项目例子中的 窗口2 的beforeclose事件代码怎么会不起作用 可能是bug吧 想不明白

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.rar

 

 

If e.Form.Controls("TextBox1").Enabled = False Then
If DataTables("表A").Haschanges  Then
messageBox.show("请保存记录后再退出!","提示",MessageBoxButtons.ok,MessageBoxIcon.Information)
e.cancel = True
 End If
End If

 

上面是窗口 beforeclose 中的代码，当符合条件时，窗口还是会被关闭，是不是代码有问题？

你关掉窗口再运行一次，然后改变 文本框的内容不保存记录 点关闭窗口就会出现窗口关闭情况

请你关掉窗口再运行一次（多试一次），然后改变 文本框的内容不保存记录 点关闭窗口就会出现窗口关闭情况

我测试了好几遍都不正常，真是让人费解。现在找到办法了，在代码中再加一句 e.cancel = true  这两句同样的代码叠在一起 ，这样窗口才不会关闭了。

2014.8.24 版本的

第一次测试正常之后，要从 窗口管理 --设计窗口1---运行窗口1 ---双击表单元格打开窗口 然后 改 文本框里的内容  不保存关闭 Messagebox.show 弹出后，按确定窗口就关闭了。有空的测测看