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