此主题相关图片如下：201811041.png

Select Case e.DataCol.Name
    Case "注意事项","已做次数","剩余次数","总次数","执行日期"
        Dim Filter As String = "[编号] = \'" & e.DataRow("编号") & "\' And 锁定 = 0"
        DataTables("派工").ReplaceFor(e.DataCol.Name,e.NewValue,Filter)
        DataTables("派工").save
        DataTables("派工").SQLReplaceFor(e.DataCol.Name,e.NewValue,Filter)
        \'Dim drs As List(Of DataRow) = DataTables("派工").Select(Filter)
        \'For Each dr As DataRow In drs
        \'dr(e.DataCol.Name) = e.NewValue
        \'Next
        \'DataTables("派工").save
        If Forms("派工").opened
            Dim r As Row = Tables("派工_Table1").Current
            r.DataRow.Load()
        End If
End Select

有4台电脑同时登录即时同步。如果一台修改，其中有，没有打开("派工_Table1")这个表，就是弹窗口吗？请教怎么修改呢？

加入msgbox调试出错的位置

http://www.foxtable.com/webhelp/scr/1485.htm