加入ON ERROR GOTO ERRORLOOP时系统提示编译错误"标号未定义",不知问题在哪里?
部份代码为:
 ON ERROR GOTO ERRORLOOP1
    程序段
    end sub
ERRORLOOP1:
  错误处理代码
resume
系统认为ERRORLOOP标号未定义,光标停在ON ERROR GOTO ERRORLOOP行上
我在代码中如用GOTO ERRORLOOP1和ERRORLOOP1:时系统认可并无报错。
请高手指点解决方法!

解决方案 »

  1.   

    可以写成以下格式
    ON ERROR GOTO ERRORLOOP1
        程序段
        
    exit sub 
    ERRORLOOP1:
      错误处理代码
    resume
    end sub
      

  2.   

    ON ERROR GOTO ERRORLOOP1
        程序段
        end sub   '过程结束了,还到哪找ERRORLOOP1
    ERRORLOOP1:
      错误处理代码
    resume
    一般的错误处理
    on error goto errHandle
         'do something
         exit sub
    errHandle:
         ' do error thing
    endsub
      

  3.   

    改成这样:
    ON ERROR GOTO ERRORLOOP1
        程序段
        exit sub
    ERRORLOOP1:
      错误处理代码
      resume
    end sub