以下是引用狐狸爸爸在2008-10-6 8:23:00的发言：
如果要小数，将下面的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"))
这个无法实现流水账,因为缺少循环控制,无法自动更新本笔之后的结余.
这个_identify对外部表好象无效.
个人以为老六的流水帐为经典之作,呵呵!
加好友 
发短信
F6
Post By：2008/10/5 19:12:00 [显示全部帖子]
