Foxtable(狐表)用户栏目专家坐堂 → BeforeShowErrorMessage


  共有4143人关注过本帖树形打印复制链接

主题:BeforeShowErrorMessage

帅哥哟,离线,有人找我吗?
xiekai
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:308 积分:2435 威望:0 精华:0 注册:2012/4/5 14:26:00
BeforeShowErrorMessage  发帖心情 Post By: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

 

 


此主题相关图片如下:qq图片20131205165410.jpg
按此在新窗口浏览图片

此主题相关图片如下:qq图片20131205165446.jpg
按此在新窗口浏览图片

 

 

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

 

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
xiekai
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:308 积分:2435 威望:0 精华:0 注册:2012/4/5 14:26:00
  发帖心情 Post By:2013/12/6 12:33:00 [显示全部帖子]

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
xiekai
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:308 积分:2435 威望:0 精华:0 注册:2012/4/5 14:26:00
  发帖心情 Post By:2013/12/6 14:59:00 [显示全部帖子]

BeforeShowErrorMessage

这个事件,我可不可以不用?

 


 回到顶部
帅哥哟,离线,有人找我吗?
xiekai
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:308 积分:2435 威望:0 精华:0 注册:2012/4/5 14:26:00
  发帖心情 Post By:2013/12/6 15:01:00 [显示全部帖子]

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

 

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
xiekai
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:308 积分:2435 威望:0 精华:0 注册:2012/4/5 14:26:00
  发帖心情 Post By: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

 

 

有什么好的方法改进!

 


 回到顶部