Clear 方法

清除 Err 对象的所有属性设置。

语法

object.Clear

参数：

Object：必需。始终为 Err 对象。

注释

可使用 Clear 在处理错误后显式清除 Err 对象。这是必要的，例如当您结合使用 On Error Resume Next 进行延迟错误处理时。每当执行以下任一语句时，BSL 会自动调用 Clear 方法：

On Error Resume Next
Exit Sub
Exit Function

以下示例说明了 Clear 方法的用法。

示例 1：

Sub RaiseAndClearError()
    On Error Resume Next       ' Enable error handling.
    Err.Raise 6                ' Raise an overflow error.
     Output1 =  "error number here " & Err.Number     

     Err.Clear                  ' Clear the error.
    ' Check if the error is cleared.
Output2 = "error number is cleared here " & Err.Number
End Sub
'Output1: error number here 6
'Output2: error number is cleared here 0

示例 2：

Sub InnerProcedure()
    On Error Resume Next
    Err.Raise 9         
    Output1 = "Raising error here " & Err.Number
    Err.Clear           
    Output2 = "Error cleared here " & Err.Number
End Sub
Sub OuterProcedure()
    On Error Resume Next
    InnerProcedure      ' Call the inner procedure.
   'OuterProcedure Completed
End Sub
Call OuterProcedure

'Output1: Raising error here 9
'Output2: Error cleared here 0