ON ERROR DO errHandler WITH ;
   ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
USE nodatabase  
ON ERROR  && 恢复系统错误处理程序.

PROCEDURE errHandler
   PARAMETER merror, mess, mess1, mprog, mlineno
   CLEAR
   ? '错误编号: ' + LTRIM(STR(merror))
   ? '错误信息: ' + mess
   ? '错误的代码行: ' + mess1
   ? '错误的行号: ' + LTRIM(STR(mlineno))
   ? '错误的程序: ' + mprog
ENDPROC

如果错误在表单内，怎么获取调用表单名称？

api?

感谢各位。