If e.DataCol.name = "收入金额" Then
dim dr as datarow = e.DataTable.find("收或支='收入合计' and 卡号 = '" & e.DataRow("卡号") & "' and 日期 = '" & e.DataRow("日期") & "' ")
If dr isnot nothing Then
dr("收入金额") = e.DataTable.Compute("sum(收入金额)","收或支 = '收' and 卡号 = '" & e.DataRow("卡号") & "' and 日期 = '" & e.DataRow("日期") & "' ")
End If
End If