初学者,请交On Error命令的用法
请问各位高手On Error的具体用法,最好能举个详细点例子,谢谢了。
on error do errhand with error( ), message( ), message(1), program( ), lineno( )
***下面这行命令会引起错误 ***
use nodatabase
on error && 还原系统错误处理器
procedure errhand
parameter merror, mess, mess1, mprog, mlineno
clear
? 'error number: ' + ltrim(str(merror))
? 'error message: ' + mess
? 'line of code with error: ' + mess1
? 'line number of error: ' + ltrim(str(mlineno))
? 'program with error: ' + mprog