1.含义(MSDN)
On Error GoTo 0 表示禁止当前过程中任何已启动的错误处理程序。
On Error Resume Next 说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。
On Error GoTo line 启动错误处理程序,且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误,则控件会跳到 line,激活错误处理程序。指定的 line 必须在一个过程中,这个过程与 On Error 语句相同; 否则会发生编译时间错误。
以上MSDN上的解释 一般情况下,如果在对我们创建的对象或控件进行错误捕捉,需要使用On Error Resume Next ,然后在判断它的Err.Number,根据错误类型来做相应的处理。
2.例子
一个错误处理函数,当系统发生错误用来处理相应的错误。
Public Sub Hbora_err_handler(prmstrProgName As String)
Dim lngErrCD As Long ' 错误Code
Dim strErrDes As String ' 错误内容
' Oracle连接错误
If Err.Number = 440 Then
' セッション系を先に参照するように変更
If PBora_session.LastServerErr <> 0 Then
lngErrCD = PBora_session.LastServerErr
If prmstrProgName <> "" Then
strErrDes = "「" & prmstrProgName & "」 " & _
PBora_session.LastServerErrText
Else
strErrDes = PBora_session.LastServerErrText
End If
ElseIf PBora_database.LastServerErr <> 0 Then
lngErrCD = PBora_database.LastServerErr
If prmstrProgName <> "" Then
strErrDes = "「" & prmstrProgName & "」 " & _
PBora_database.LastServerErrText
Else
strErrDes = PBora_database.LastServerErrText
End If
Else
lngErrCD = Err.Number
If prmstrProgName <> "" Then
strErrDes = "「" & prmstrProgName & "」 " & Err.Description
Else
strErrDes = Err.Description
End If
End If
' Oracle连接外的错误
Else
lngErrCD = Err.Number
If prmstrProgName <> "" Then
strErrDes = Chr(10) & "「" & prmstrProgName & "」 " & Chr(10) & Chr(10) & Err.Description
Else
strErrDes = Err.Description
End If
End If
On Error Resume Next
' 打印log
Call Hbpub_put_log(HM_LOG_ERROR, lngErrCD, strErrDes)
' 显示信息
Call Hbora_msg_stop("WCM001", lngErrCD, strErrDes)
' 回滚
PBora_session.Rollback
' 断开连接
Call Hbora_close_connection
On Error GoTo 0
' 程序终了
End
End Sub