主题：求教公式

老六那个流水帐代码没出来前，我是这么写的。

 

 

If e.DataRow("日期") Is Nothing Then

    Return

End if

Dim sum As Integer = dataTables("收支总表").Compute("Sum(收入)", "_Identify <= " & e.datarow("_identify"))

Dim sum1 As Integer = dataTables("收支总表").Compute("Sum(支出)", "_Identify <= " & e.datarow("_identify"))

e.DataRow(e.DataCol.Name) = sum -sum1