主题：重置列更新。

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

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