标题:求助:有没有自动关闭系统错误提示或不显示错误提示的办法
只看楼主
looouuu
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2016-11-25
结帖率:84.62%
已结贴  问题点数:20 回复次数:5 
求助:有没有自动关闭系统错误提示或不显示错误提示的办法
我做了个小程序,里面的计时器会每分钟读取远程数据一次,存入本地数据库。因为我这里网络用的人很多,所以不太稳定,有时会出现错误提示“错误信息:OLE IDispatch 异常代码0出自msml3.dll:系统未找到指定资源。”,这时候如果点“忽略”,程序就能继续运行,但是如果没有人工干预,错误提示会一直显示,程序也就中断了。有没有什么设置或者办法能让系统错误提示不显示(或者像messagebox函数一样能设置关闭时间),这样程序就可以在下一分钟重新联系远端并读取数据了。
搜索更多相关主题的帖子: 系统 错误 提示 不显示 办法 
2019-02-12 09:51
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:190
帖 子:3125
专家分:8340
注 册:2015-3-25
得分:0 
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
2019-02-12 12:11
looouuu
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2016-11-25
得分:0 
现在用的就是on error,不知道是格式不对还是什么原因,有时能行,有时还是出现错误提示(所以就想看看有没有其他办法)。请版主帮忙看看是什么原因,感谢。

下面这个放在“读取数据”表单的计时器里了
ON ERROR DO errHandler WITH ;
   ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
   &&后面跟着远程数据读取程序

下面这段代码是放在主程序里了
PROCEDURE errHandler
   PARAMETER merror, mess, mess1, mprog, mlineno  
    PUBLIC errHandler,读取数据
    &&错误信息保存到专门建的一个表里,通过这个表可以看到,确实有几次错误出现后没有影响程序继续读取数据,但是也有两次系统的错误提示又出现了,读取数据随之停止。
    &&然后重启计时器(读取数据.timer1.enabled=.t.)
ENDPROC
2019-02-12 14:11
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:190
帖 子:3125
专家分:8340
注 册:2015-3-25
得分:10 
PROCEDURE errHandler
   PARAMETER merror, mess, mess1, mprog, mlineno  
    PUBLIC errHandler,读取数据
    &&错误信息保存到专门建的一个表里,通过这个表可以看到,确实有几次错误出现后没有影响程序继续读取数据,但是也有两次系统的错误提示又出现了,读取数据随之停止。
    &&然后重启计时器(读取数据.timer1.enabled=.t.)
ENDPROC
把保存到表的这个功能去掉看看,有时候出问题时,看看是不是这个造成的。
2019-02-12 19:02
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:10 
程序执行过程中永远不报错的方法
on error lErr=.t.

或者
On error *

恢复默认
on error

坚守VFP最后的阵地
2019-02-12 19:41
looouuu
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2016-11-25
得分:0 
谢谢两位版主,我都试一下。
2019-02-13 10:16



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-493034-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.013869 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved