以下是引用老有所乐在2008-10-5 21:09:00的发言：谢谢C版主，您的代码应放在什么地方
知道了，是结余列计算代码 。好像小数不能出现。
[此贴子已经被作者于2008-10-5 23:03:51编辑过]
如果要小数，将下面的Integer改为Double
Dim sum As Integer = dataTables("收支总表").Compute("Sum(收入)", "_Identify <= " & e.datarow("_identify"))
Dim sum1 As Integer = dataTables("收支总表").Compute("Sum(支出)", "_Identify <= " & e.datarow("_identify"))
也就是：
Dim sum As Double = dataTables("收支总表").Compute("Sum(收入)", "_Identify <= " & e.datarow("_identify"))
Dim sum1 As Double = dataTables("收支总表").Compute("Sum(支出)", "_Identify <= " & e.datarow("_identify"))
加好友 
发短信
Post By：2008/10/6 8:23:00 [显示全部帖子]
