共10 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：BeforeShowErrorMessage

1楼

xiekai 发表于：2013/12/5 17:07:00

事件写在：

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

dvubb 此主题相关图片如下：qq图片20131205165410.jpg

dvubb 此主题相关图片如下：qq图片20131205165446.jpg

不明白为什么会弹出这样的提示出来????

2楼

Bin 发表于：2013/12/5 17:09:00

可能是这句代码出错

G_ErrorMessage = " 错误代码位置: " & e.Event & vbcrlf & " 错误详细: " & e.Message2

建议您用这个方法：

http://www.foxtable.com/help/topics/1485.htm

先找出是哪一行出错，贴出代码，并告诉我们运行到哪一行出错，以及错误提示。

3楼

Bin 发表于：2013/12/5 17:10:00

另外这类型的错误可以使用TRY CATCH捕捉

http://www.foxtable.com/help/topics/2070.htm

4楼

xiekai 发表于：2013/12/6 12:33:00

e.Message2.indexof("一般性网络错误") > - 1 这几个字“一般性网络错误” 是什么意思？

5楼

Bin 发表于：2013/12/6 14:20:00

没意思,它错误提示包含到这几个字而已.

6楼

xiekai 发表于：2013/12/6 14:59:00

BeforeShowErrorMessage

这个事件，我可不可以不用？

7楼

xiekai 发表于：2013/12/6 15:01:00

项目里用了这事件，为什么会有这么多错出来？

8楼

Bin 发表于：2013/12/6 15:02:00

你再回顾一下上面的楼层吧,这个错误和你7楼说得无关.

9楼

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

有什么好的方法改进！

10楼

有点甜 发表于：2013/12/6 20:11:00

不可能是这段代码的问题吧？

你试试屏蔽这段代码，或者屏蔽这句代码 G_ErrorMessage = " 错误代码位置: " & e.Event & vbcrlf & " 错误详细: " & e.Message2

共10 条记录, 每页显示 10 条, 页签: [1]