Select Case e.DataCol.Name
    Case "次数","截止日期","交单","确定","工号"
        Dim Filter As String = "[编号] = \'" & e.DataRow("编号") & "\'"
        DataTables("客户资料").DataCols("编号").RaiseDataColChanged(filter)
End Select

这段代码放在派工表事件DataColChanged，能生效。但把派工表在窗口里改为sqltable表后事件DataColChanged也有此代码，不能及时更新。

Select Case e.DataCol.name
    Case "注意事项","已做次数","剩余次数","总次数","执行日期"
        Dim drs As List(Of DataRow) = DataTables("派工").Select("[编号] = \'" & e.DataRow("编号") & "\'And 锁定 = False")
        If drs.count = 0 Then
            Dim dr = DataTables("派工").addnew
            dr("注意事项") = e.DataRow("注意事项")
            dr("已做次数") = e.DataRow("已做次数")
            dr("剩余次数") = e.DataRow("剩余次数")
            dr("总次数") = e.DataRow("总次数")
            dr("执行日期") = e.DataRow("执行日期")
        Else
            For Each dr As DataRow In drs
                dr("注意事项") = e.DataRow("注意事项")
                dr("已做次数") = e.DataRow("已做次数")
                dr("剩余次数") = e.DataRow("剩余次数")
                dr("总次数") = e.DataRow("总次数")
                dr("执行日期") = e.DataRow("执行日期")
            Next
        End If
End Select
Select Case e.DataCol.Name
    Case"编号"
        Dim Filter As String = "[编号] = \'" & e.DataRow("编号") & "\'"
        e.DataRow("已做次数") = DataTables("派工").sqlCompute("Sum(次数)", Filter)
        e.DataRow("已派单数") = DataTables("派工").sqlCompute("Sum(派工数量)", Filter)
End Select
If e.DataCol.Name = "总次数" OrElse e.DataCol.Name = "已做次数" Then
    Dim i As Integer
    i = e.DataRow("总次数") - e.DataRow("已做次数")
    If i < 0 Then
        e.DataRow("剩余次数") = 1*i
    Else
        e.DataRow("剩余次数") = 1*i
    End If
End If

代码那出了问题呢？