7,763
社区成员
发帖
与我相关
我的任务
分享一个大问题!!!!
我在一个窗体1里,将另一个窗体2模态显示,在窗体2中执行一些操作后,返回窗体1,比、并卸载窗体2.
代码如下:
'窗体1中的一个按纽事件
Private Sub cmdTest_Click()
........
On Error GoTo NoOraConnection
.....
NoOraConnection:
frmLogOraError.Show MODAL
End
end sub
'窗体2中的一个按纽事件
Private Sub OK_Click()
App.HelpFile = ""
Unload frmLogOraError
End Sub
但是卸载窗体2后,整个程序就结束了.
我在窗体1的Form_QueryUnload事件中令CANCEL=1也不行.
请问各位如何解决啊??在线急等!!!
代码如下:
'窗体1中的一个按纽事件
Private Sub cmdTest_Click()
........
On Error GoTo NoOraConnection
.....
NoOraConnection:
frmLogOraError.Show MODAL
End
end sub
'窗体2中的一个按纽事件
Private Sub OK_Click()
App.HelpFile = ""
Unload frmLogOraError
End Sub
但是卸载窗体2后,整个程序就结束了.
我在窗体1的Form_QueryUnload事件中令CANCEL=1也不行.
请问各位如何解决啊??在线急等!!!
...全文
请发表友善的回复…
发表回复
ningIII 2003-09-07
- 打赏
- 举报
找到原因了,我在调试的时候加了个"END",呵呵,忘记删了!
多谢两位!
多谢两位!
bbgbianbaogui 2003-09-07
- 打赏
- 举报
sorry, i don't know.
pigpag 2003-09-07
- 打赏
- 举报
// NoOraConnection:
估计你在这句之前没有写Exit Sub，正常执行时也将错误处理代码执行了一遍。这就是没有Try...Catch结构最大的弊端。
估计你在这句之前没有写Exit Sub，正常执行时也将错误处理代码执行了一遍。这就是没有Try...Catch结构最大的弊端。
