公式出错了，很奇葩dim jy as Double
dim sr as Double
dim zc as Double
dim i as Integer
Dim hs As Integer =Tables("统计").Rows.Count - 1
for i = 0 to hs
dim dr as datarow = DataTables("统计").DataRows(i)
sr = sr + dr("收入")
zc = zc + dr("支出")
jy = jy + sr - zc
dr("结余") = jy
next
这个公式应该没有问题吧，好几百项都没问题，可是就只有在我选择统计其中的一种物料时的最后一行出错，并且上一行的结余是3.23（正确）
下一行收入为0，发出3.23，可是算出的结余却是8.886966888，选其他物料不会出错，并且我要是把这个统计放在两个时间段分别统计的话也都不会出错。确实不知道是怎么回事了，呵呵
加好友 
发短信
Post By：2015/5/13 21:07:00 [只看该作者]
