在窗口的beforclose中有这么一段代码:
Dim Result As DialogResult Result = MessageBox.Show("确实要关闭吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then If e.Form.Controls("save").Enabled=True Then '需要保存数据时 MessageBox.Show("请完成编辑后再关闭!") e.cancel=True Else e.cancel=False Tables("outcontract").AllowEdit=False End If Else e.cancel=True End If
当进入系统第一次打开窗口时出现对话框,当点击“否”时,没有出现提示窗口就关闭了,但我点击系统菜单中的窗口管理>设计窗口,什么也不做关闭后,再点击该窗口,当点击“否”时,窗口正常,不会不关闭,这是什么原因?
|