高手进来指点下
Private Sub c_cancel_Click()
Err = 0
On Error Resume Next
STATUS.caption = " "
Sqlselect = " "
notice.Locked = False
ret = form_cancel()
Err = 0
End Sub
这是段消除代码,刚开始的Err = 0和最后的是起什么作用的,什么意思?最好可以逐行解释下!谢谢
------解决方案--------------------穷疯了,5分我也收。
Private Sub c_cancel_Click()
Err = 0
'建立错误标识符,初始化为0
On Error Resume Next
'允许错误逐步调试
STATUS.caption = " "
控件status的caption属性初始化为空
Sqlselect = " "
变量sqlselect初始化为空
notice.Locked = False
控件notice的locked(锁定)设置为假,即不处于锁定状态
ret = form_cancel()
变量ret获取form_cancel过程的返回值
Err = 0
'如果以上代码产生逐步调试错误的话(即err不为0),那么在这里将会被清为零。
End Sub