- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 连接SQL失败时的提示窗口太多 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=40893)
-- 发布时间：2013/10/5 12:19:00
-- 连接SQL失败时的提示窗口太多
狐爸，
当客户端连接不到服务器或者连接不上SQL的时候，就会弹出一个如下图的窗口，但是如果时间稍微长一点，就会弹出若干个这样的窗口，关个半天，是否可以做到只弹一个这样的窗口出来，或者公开一下连接不上网络或者SQL的时候，用语句能判断，这样我们就可以自己程序设置弹出其他窗口来替代。
此主题相关图片如下：连接sql失败提示.jpg
[此贴子已经被作者于2013-10-5 12:20:18编辑过]
-- 发布时间：2013/10/5 13:00:00
--
参考项目事件 beforeshowerrormessage
http://www.foxtable.com/help/topics/2655.htm
-- 发布时间：2013/10/5 17:30:00
--
多谢【有点甜】老师，我已经参照这个方法做了，弹出自定义的报错窗口：
e.Cancel = True
If Forms("SysTip").Opened = True Then
Forms("SysTip").Close
End If
Dim Tipt As String
Tipt = e.Event & vbcrlf & e.Message1 & vbcrlf & vbcrlf & e.Message2
Forms("SysTip").Show()
Dim textb1 As WinForm.TextBox = Forms("SysTip").Controls("TextBox1")
textb1.Text = Tipt
但是窗口还是有时候会卡死，不过比系统的那种报错要好点
此主题相关图片如下：系统报错.jpg
此主题相关图片如下：系统报错2.jpg
-- 发布时间：2013/10/5 17:55:00
--
卡死是正常的，因为程序试图去连接数据库。
你再参考下面两个事件写写代码吧