EResume

在结束错误处理例程后,重新开始执行程序。

格式
EResume [ {标签 | Next }​ ]

说明

  • EResume

    在与错误处理例程相同的函数中发生错误时,从造成错误的语句开始重新执行程序。

    在调用的函数内发生错误时,从包括错误处理例程在内的函数内的Call语句开始重新执行程序。

  • EResume Next

    在与错误处理例程相同的函数中发生错误时,从造成错误的语句的下一语句开始重新执行程序。

    在调用的函数内发生错误时,从包括错误处理例程在内的函数所调用的最后的Call语句的下一语句开始重新执行程序。

  • EResume {标签}​

    在与错误处理例程相同的函数内发生错误时,从包括指定标签在内的语句开始重新执行程序。

参阅
OnErr

EResume使用示例

Function main
  Integer retry

  OnErr GoTo eHandler
  Do
    RunCycle
  Loop
  Exit Function

eHandler:
  Select Err
    Case MyError
      retry = retry + 1
      If retry < 3 Then
        EResume '重新执行
      Else
        Print "MyError has occurred ", retry, " times
      EndIf
  Send
Fend