現在のエラー処理操作を設定する、エラー処理操作の命令
構文:
On Local Error Goto label
記述:
On Error 構成の中で
Local 節を使うと、
On Local Error として、同じ
Sub や
Function の中でエラー操作を定義できるようになります。
注意:
現在、
Local 句 (Sub/Function の中だけで認められる) はコンパイラによって無視され、エラー ハンドラーは On [Local] Error と同じ手続きのスコープ内にある必要があります。
例:
'' -lang fblite か qb で、コンパイルします
#lang "fblite"
Declare Sub foo
foo
Print "ok"
Sleep
Sub foo
Dim errno As Integer
On Local Error Goto fail
Open "xzxwz.zwz" For Input As #1
On Local Error Goto 0
Exit Sub
fail: ' ここで、エラー処理を始めます
errno = Err
Print "Error "; errno ' エラー№を表示します。
Sleep
End Sub
QBからの違い:
- LOCAL 節は、PDS 7.1 から来ています。
QB 4.5 は、local のエラー処理操作を許容しません。
参照:
