客户资料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"编号"
Dim Filter As String = "[编号] = '" & e.DataRow("编号") & "'"
DataTables("派工").save
e.DataRow("已做次数") = DataTables("派工").sqlCompute("Sum(次数)", Filter)
e.DataRow("已派单数") = DataTables("派工").sqlCompute("Sum(派工数量)", Filter)
End Select
派工 DataColChanged:
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
是不是代码有问题。会无故退出。