主题：无故退出

客户资料DataColChanged：

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

 Select Case e.DataCol.Name
    Case "次数","编号","派工数量","工号"
        Tables("派工_Table1").Save()
        Tables("派工").Save()
        Dim Filter As String = "[编号] = '" & e.DataRow("编号") & "'"
        DataTables("客户资料").DataCols("编号").RaiseDataColChanged(filter)
End Select
Select Case e.DataCol.Name
    Case "编号","服务"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("编号") OrElse dr.IsNull("服务") Then
            dr("计分金额") = Nothing
        Else
            Dim filter As String
            filter = "编号 = '" & dr("编号") & "'"
            pr = DataTables("客户资料").SQLFind(filter)
            If pr IsNot Nothing Then
                dr("计分金额") = pr(e.DataRow("服务"))
            End If
        End If
End Select

是不是代码有问题。会无故退出。