VFP编程中，程序运行出现错误，可能就不能运行了，我想问问如何编写容错功能，可以在出错时可以控制恢复或回到初始状态？？？？？？

on error do err.prg &&err.prg是容错处理程序，一般就是显示出错的语句及原因

不是很明白啊，给个实例吧！

ON ERROR DO errHandler WITH ;
   ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
USE nodatabase  
ON ERROR  && Restores system error handler.

PROCEDURE errHandler
   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
ENDPROC