最好别这样:忽略错误是危险的。
Test()
语句1
ON ERROR ?? &&关闭错误提示
语句2
ON ERROR &&恢复错误处理
语句3
.....
End
建议采纳以下方案:
Test()
语句1
LOCAL lcError,ltError
lcError = ON("ERROR")
*ltError = .F.
ON ERROR ltError=.T.
语句2
ON ERROR &lcError
IF ltError
*你可能的错误处理
ENDIF
语句3
.....
End
还是升级到VFP8吧,新增的错误捕捉功能让以前的方法黯然失色!