Resume Next
 
错误处理语句在跳转到错误处理程序之后恢复执行

语法

Resume Next

说明

Resume Next用于错误处理程序（由On Error调用））中的传统QB错误处理机制，以将执行返回到导致错误的行之后。通常这用于避免执行相同的行并再次导致错误。

Resume Next将Err的值重置为0

例子

''用-lang fblite或qb编译

#lang "fblite"

Dim As Single i, j

On Error Goto ErrHandler

i = 0
j = 5
j = 1 / i '这一行会引起零分错误;执行跳转到ErrHandler标签

Print "结尾..."

End '结束程序，以便执行不会再次通过错误处理程序

ErrHandler:

Resume Next ' execution jumps to 'Print "ending..."'线，但j现在处于未定义的状态


方言差异

  • -lang fb 方言不支持“恢复NEXT”。语句可用于其函数形式返回错误代码
If Open( "文本" For Input As #1 ) <> 0 Then
  Print "无法打开文件"
End If



与QB差别

  • 必须使用-ex 选项进行编译

参考