| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
ADSL如何秒变专线,公网IP盒子了解一下千里之行 始于足下
共有 475 人关注过本帖
标题:求助:有没有自动关闭系统错误提示或不显示错误提示的办法
只看楼主 加入收藏
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: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:96
帖 子:2617
专家分:6491
注 册: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: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:96
帖 子:2617
专家分:6491
注 册: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: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
来 自:江苏省连云港市
等 级:贵宾
威 望:188
帖 子:7795
专家分:19180
注 册: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







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

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