IBM Lotus Symphony


Erl 函数 [运行时]

返回在程序执行过程中出现错误的行号。

语法:

Erl

返回值:

整数

参数:

备注图标 Erl 函数仅返回行号,而不返回行标签。

示例:

sub ExampleError

on error goto ErrorHandler REM Set up error handler

Dim iVar as Integer

Dim sVar As String

REM Error caused by non-existent file

iVar = Freefile

Open "\file9879.txt" for Input as #iVar

Line Input #iVar, sVar

Close #iVar

exit sub

ErrorHandler:

MsgBox "Error " & err & ": " & error$ + chr(13) + "In line : " + Erl + chr(13) + Now , 16 ,"An error occurred"

end sub


产品反馈 | 其他文档 | 商标