系统代码很少 系统加载后 ，发生数据变化的 就只有以下部分
放在窗体的 计时器事件里面
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编辑过]
加好友 
发短信
Post By：2015/11/30 16:40:00 [只看该作者]
