日期:2014-05-17  浏览次数:21065 次

高手进来指点下
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