If e.DataCol.Name = "金额_交易" Then
Dim sr As Integer = e.DataTable.Compute("Sum(金额_交易)","金额_交易 > 0")
Dim zc As Integer = e.DataTable.Compute("Sum(金额_交易)","金额_交易 < 0")
Dim r As Row = Tables("银行交易记录").Rows(Tables("银行交易记录").Rows.Count - 1)
r("金额_支出") = zc
r("金额_收入") = sr
r("余额") = sr+zc
End If