If e.DataCol.Name = "支出金额" Then
Dim pr As DataRow
pr = DataTables("资金账户").sqlFind("账户名称 = '" & e.DataRow("结算账户") & "'")
e.DataRow.Save
If pr IsNot Nothing Then
pr("支出金额汇总") = DataTables("支出表").SqlCompute("Sum(支出金额)", "[结算账户] = '" & e.DataRow("结算账户") & "'")
Else
pr = DataTables("资金账户").AddNew
pr("账户名称") = e.DataRow("结算账户")
pr("支出金额汇总") = DataTables("支出表").SqlCompute("Sum(支出金额)", "[结算账户] = '" & e.DataRow("结算账户") & "'")
End If
pr.Save
End If