计划任务定时刷新数据出错。
在自己电脑上测试，断网后不刷新数据，不弹错误，正常。
但在展示电脑上，断网后会弹错误框：***一般性网络错误。请检查网络文档。
计划任务代码如下：
刷新频率是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编辑过]
加好友 
发短信
Post By：2018/2/27 15:00:00 [只看该作者]
