| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 断网时的判断 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=78014) |
||||||
| -- 作者：ljh29206 -- 发布时间：2015/11/30 16:40:00 -- 断网时的判断 系统代码很少 系统加载后 ，发生数据变化的 就只有以下部分 放在窗体的 计时器事件里面 If TryConnectHost("192.168.44.170") Then Dim id As Integer = DataTables("条码录入表").Compute("Max(_Identify)") Dim Filter As String = "[_Identify] > " & id DataTables("条码录入表").AppendLoad(Filter, False) If id > 0 Then e.Form.StopRedraw Dim mydate1 As Date = DataTables("条码录入表").DataRows(0)("计划日期") Dim str1 As String = DataTables("条码录入表").DataRows(0)("班次") DataTables("生产计划表").LoadFilter="计划日期 = #" & mydate1 & "# and 班次 = \'" & str1 & "\'" DataTables("生产计划表").Load Dim str As String = DataTables("条码录入表").DataRows(DataTables("条码录入表").DataRows.Count-1)("条码前缀") If str = "SCJS00000000" Then Syscmd.Project.Exit(False) Return End If If Vars("dangqianzhi") <> DataTables("条码录入表").DataRows.Count-1 Then Vars("dangqianzhi") = DataTables("条码录入表").DataRows.Count-1 Dim Int As Integer Int = DataTables("条码录入表").DataRows(DataTables("条码录入表").DataRows.Count-1)("序号") Dim dr As DataRow = DataTables("生产计划表").Find("序号 = \'" & int & "\'") If dr IsNot Nothing Then Dim strb As String = dr("车型") If strb.Contains("/") Then strb = strb.Replace("/","") End If Dim pb As WinForm.PictureBox = Forms("上盖").Controls("PictureBox1") pb.Image = GetImage(ProjectPath & "\\图片\\" & strb & "上盖.jpg" ) End If End If e.Form.ResumeRedraw End If Else \'\'\'\'\'\'\'\'\'\'\'\' MessageBox.Show("网络连接有问题,请班长确认!" & vbcrlf & vbcrlf & "连接完成后,重启该主机电脑!","提示") Syscmd.Project.Exit(False) End If 一断网就 发生错误。 提示 mdb 不是有效的路径，确认路径名称拼写是否正确，是否连接到文件存放的服务器。
[此贴子已经被作者于2015/11/30 16:39:57编辑过]
|
||||||
| -- 作者：大红袍 -- 发布时间：2015/11/30 16:44:00 -- 一断网，就停止计时器的内容，阻止错误弹出
|