Select Case e.DataCol.Name
Case "材料费小计", "加工费小计"
Dim pr As DataRow
pr = DataTables("零件加工报价系统_Table3").Find("工序号 = '" & e.DataRow("工序号") & "'")
If pr IsNot Nothing Then
If DataTables("零件加工报价系统_Table3").DataCols("工序号").RaiseDataColChanged(pr) Then
e.DataRow("工序材料费") = DataTables("零件加工报价系统_Table4").Compute("Sum(材料费小计)", "[工步号] like '" & e.DataRow("工序号") & "-*'")
End If
End If
End Select