求助:有没有自动关闭系统错误提示或不显示错误提示的办法
我做了个小程序,里面的计时器会每分钟读取远程数据一次,存入本地数据库。因为我这里网络用的人很多,所以不太稳定,有时会出现错误提示“错误信息:OLE IDispatch 异常代码0出自msml3.dll:系统未找到指定资源。”,这时候如果点“忽略”,程序就能继续运行,但是如果没有人工干预,错误提示会一直显示,程序也就中断了。有没有什么设置或者办法能让系统错误提示不显示(或者像messagebox函数一样能设置关闭时间),这样程序就可以在下一分钟重新联系远端并读取数据了。
on error
指定代码运行时刻发生错误时,要运行的一个有效表达式或 Visual FoxPro 命令。
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