以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- BeforeShowErrorMessage (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43379)
|
-- 作者:xiekai
-- 发布时间:2013/12/5 17:07:00
-- BeforeShowErrorMessage
事件写在:
BeforeShowErrorMessage
e.Cancel = True \'禁止系统显示错误信息
If e.Message2.indexof("一般性网络错误") > - 1 Then
msgbox("网络状况不良, 请稍后再试")
Else If e.Message2.indexof("SQL Server 不存在或拒绝访问") > - 1
msgbox("网络状况不良,请稍后再试.")
Else
G_ErrorMessage = " 错误代码位置: " & e.Event & vbcrlf & " 错误详细: " & e.Message2
Forms("Form报错").Open()
End If
此主题相关图片如下:qq图片20131205165410.jpg
此主题相关图片如下:qq图片20131205165446.jpg
不明白为什么会弹出这样的提示出来????
|
-- 作者:Bin
-- 发布时间:2013/12/5 17:09:00
--
可能是这句代码出错 G_ErrorMessage = " 错误代码位置: " & e.Event & vbcrlf & " 错误详细: " & e.Message2 建议您用这个方法: http://www.foxtable.com/help/topics/1485.htm
先找出是哪一行出错,贴出代码,并告诉我们运行到哪一行出错,以及错误提示。
|
-- 作者:Bin
-- 发布时间:2013/12/5 17:10:00
--
另外这类型的错误可以使用TRY CATCH捕捉
|
-- 作者:xiekai
-- 发布时间:2013/12/6 12:33:00
--
e.Message2.indexof("一般性网络错误") > - 1 这几个字“一般性网络错误” 是什么意思?
|
-- 作者:Bin
-- 发布时间:2013/12/6 14:20:00
--
没意思,它错误提示包含到这几个字而已.
|
-- 作者:xiekai
-- 发布时间:2013/12/6 14:59:00
--
BeforeShowErrorMessage
这个事件,我可不可以不用?
|
-- 作者:xiekai
-- 发布时间:2013/12/6 15:01:00
--
项目里用了这事件,为什么会有这么多错出来?
|
-- 作者:Bin
-- 发布时间:2013/12/6 15:02:00
--
你再回顾一下上面的楼层吧,这个错误和你7楼说得无关.
|
-- 作者:xiekai
-- 发布时间:2013/12/6 15:12:00
--
以前弹出的错,基本上很少。启用了这个事件,
BeforeShowErrorMessage
频率比较高就报个网络错误!肯定和这段代码有关:
If e.Message2.indexof("一般性网络错误") > - 1 Then
msgbox("网络状况不良, 请稍后再试")
Else If e.Message2.indexof("SQL Server 不存在或拒绝访问") > - 1
msgbox("网络状况不良,请稍后再试.")
Else
G_ErrorMessage = " 错误代码位置: " & e.Event & vbcrlf & " 错误详细: " & e.Message2
Forms("Form报错").Open()
End If
有什么好的方法改进!
|
-- 作者:有点甜
-- 发布时间:2013/12/6 20:11:00
--
不可能是这段代码的问题吧?
你试试屏蔽这段代码,或者屏蔽这句代码 G_ErrorMessage = " 错误代码位置: " & e.Event & vbcrlf & " 错误详细: " & e.Message2
|