| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 一般性网络错误。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114998) |
| -- 作者：qwz405 -- 发布时间：2018/2/27 15:00:00 -- 一般性网络错误。 计划任务定时刷新数据出错。 在自己电脑上测试，断网后不刷新数据，不弹错误，正常。 但在展示电脑上，断网后会弹错误框：***一般性网络错误。请检查网络文档。 计划任务代码如下： 刷新频率是3秒，是否是刷新代码太长。判断时有联网，再进行刷新时网络断了，就报错了？ If TryConnectHost("192.168.1.2") = False Then \'如果服务器不通，则返回 \'MessageBox.Show("数据源无法连通!请您联系管理员.") Return Else If Forms("欢迎牌").Opened = True Then \'只有窗口开启时,循环才起作用. Dim cmd As New S Q LCommand Dim dt As Date cmd.C o nnecti cmd.C o mmandText = "S e lect GetDate()" dt = c m d.ExecuteScalar() Dim num1 As Integer = DataTables("来宾预约").S Q L Compute("Count(_Identify)","开始时间 <= \'"& dt &"\' and 结束时间 >= \'"& dt &"\' and 结案 = 0") \'判斷是否存在需要投放的歡迎牌 Dim tb1 As WinForm.TabControl = Forms("欢迎牌").Controls("TabControl1") If num1 >= 1 Then \'有数据 DataTables("来宾预约").LoadFilter = "开始时间 <= \'"& dt &"\' and 结束时间 >= \'"& dt &"\' and 结案 = 0" \'加載需要的投影數據 DataTables("来宾预约").Load() tb1.SelectedIndex = 0 \'显示欢迎信息 With Tables("来宾预约") If vars("welcome") < num1 Then \'使用全局变量welcome .Position = vars("welcome") vars("welcome") = vars("welcome") + 1 Else vars("welcome") = 0 End If End With Else If vars("state") = 0 Then tb1.SelectedIndex = 1 vars("state") = 1 ElseIf vars("state") = 1 Then tb1.SelectedIndex = 2 vars("state") = 2 Else tb1.SelectedIndex = 3 vars("state") = 0 End If End If End If End If
[此贴子已经被作者于2018/2/27 15:03:34编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/2/27 16:16:00 -- 报错不提示，就好了嘛
http://www.foxtable.com/webhelp/scr/2655.htm
|