以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  BeforeShowErrorMessage  (http://www.foxtable.com/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