datacolchanged事件
Select e.DataCol.name
Case "实退","实收","结算金额","结算否","投保人"
Dim filter As String = "投保人 = '" & e.DataRow("投保人") & "'"
Dim pdr As DataRow = e.DataTable.find(filter, "_Identify desc", 1)
If pdr IsNot Nothing Then
If e.DataRow("结算否") = True Then
e.DataRow("结算金额") = pdr("结算金额")
Else
e.DataRow("结算金额") = pdr("结算金额")+e.DataRow("实收")-e.DataRow("实退")
End If
End If
End Select