Foxtable(狐表)用户栏目专家坐堂 → 网络中断提示框为什么一直弹出?


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

主题:网络中断提示框为什么一直弹出?

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


加好友 发短信
等级:六尾狐 帖子:1264 积分:10248 威望:0 精华:0 注册:2014/7/29 19:09:00
网络中断提示框为什么一直弹出?  发帖心情 Post By:2018/12/7 9:06:00 [只看该作者]

电脑休眠或者网络断开时运行程序会出错,所以就在BeforeShowErrorMessage用了下面的代码
If e.Message2.indexof("一般性网络错误") > -1 Or e.Message2.indexof("SQL Server 不存在") > -1 Then
    e.Cancel = True
    If Forms("网络提示").Opened = False Then
        Forms("网络提示").Open
    End If
ElseIf e.Message2.indexof("查询超时已过期") > -1
    e.Cancel = True
    msgbox("查询超时,请检查网络!")
end if
但是网络断开时会一直出现提示,

图片点击可在新窗口打开查看此主题相关图片如下:网络问题.jpg
图片点击可在新窗口打开查看

有什么办法避免不要一直弹出提示框,只要弹出一个就行,昨天的帖子看不见了

谢谢!


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


加好友 发短信
等级:版主 帖子:74211 积分:372183 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/7 9:12:00 [只看该作者]

1、这个提示是你自己弄的,还是系统自己弹出的?【网络原因或者电脑休眠导致与服务器的连接中断】

 

2、如果是系统自己弹出的,你需要编写代码(昨天写的那段),然后循环调用关闭提示窗口。


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


加好友 发短信
等级:版主 帖子:74211 积分:372183 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/7 9:18:00 [只看该作者]

foxtable没有你这类的提示【网络原因或者电脑休眠导致与服务器的连接中断】,肯定是你自己弄的。你怎么弄的那就怎么关闭即可。

 

如你1楼的代码那样,加入判断

 

    If Forms("网络提示").Opened = False Then
        Forms("网络提示").Open
    End If

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


加好友 发短信
等级:六尾狐 帖子:1264 积分:10248 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2018/12/7 9:50:00 [只看该作者]

昨天那段代码还没有加入到全局事件中,今天帖子已经没有了,能否再发一下,谢谢!

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


加好友 发短信
等级:五尾狐 帖子:1087 积分:7529 威望:0 精华:0 注册:2015/3/30 10:44:00
  发帖心情 Post By:2018/12/7 9:51:00 [只看该作者]

msgbox("查询超时,请检查网络!")
类似这种msgbox只让出一次,怎么弄?

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


加好友 发短信
等级:版主 帖子:74211 积分:372183 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/7 9:55:00 [只看该作者]

以下是引用HappyFt在2018/12/7 9:50:00的发言:
昨天那段代码还没有加入到全局事件中,今天帖子已经没有了,能否再发一下,谢谢!

 

foxtable没有你这类的提示【网络原因或者电脑休眠导致与服务器的连接中断】,肯定是你自己弄的。你怎么弄的那就怎么关闭即可。

 

如你1楼的代码那样,加入判断

 

    If Forms("网络提示").Opened = False Then
        Forms("网络提示").Open
    End If

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


加好友 发短信
等级:版主 帖子:74211 积分:372183 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/7 9:55:00 [只看该作者]

以下是引用huhu在2018/12/7 9:51:00的发言:
msgbox("查询超时,请检查网络!")
类似这种msgbox只让出一次,怎么弄?

 

如1楼的代码那样,加入判断

 

    If Forms("网络提示").Opened = False Then
        Forms("网络提示").Open
    End If

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


加好友 发短信
等级:六尾狐 帖子:1264 积分:10248 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2018/12/7 9:57:00 [只看该作者]

这个提示窗口是用在一个计划中的,如果网络不通时执行就会出错,所以增加了判断

try  '避免电脑休眠时执行本计划导致错误

....

catch ex As Exception

    MessageBox.Show("网络原因或者电脑休眠导致与服务器的连接中断!","提示",MessageBoxButtons.OK)

End try


同上一楼同问,这种弹出的窗口如何判断这种窗口已经弹出就不再弹出?


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


加好友 发短信
等级:版主 帖子:74211 积分:372183 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/7 10:01:00 [只看该作者]

方法一:自己做一个窗口打开提示,不要用messagebox

 

方法二:提示窗口改成特殊的标题,如 【我的提示abc123】(防止重名),然后用ShowAppWindow判断是否弹出

 

http://www.foxtable.com/webhelp/scr/2713.htm

 

方法三:写findwindow查找也可以,如

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=107090&replyID=731988&skin=1

 


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


加好友 发短信
等级:六尾狐 帖子:1264 积分:10248 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2018/12/7 11:56:00 [只看该作者]

想请教下电脑休眠服务器会断开这种情况应该如何避免,也就是电脑休眠时如果项目是打开的如何让所有代码都不执行(像计划这些是自动执行的,就会出错)

 回到顶部
总数 12 1 2 下一页