标题：[求助]流水帐余额算法？

1楼

riancel 发表于：2008/10/15 22:50:00

流水帐＂余额＂应该怎样算哦？

此主题相关图片如下：liushui.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:流水帐.rar

重传过文件，能下了

[此贴子已经被作者于2008-10-16 0:21:14编辑过]

2楼

shxiaoya 发表于：2008/10/15 23:48:00

文件下载不了

3楼

shxiaoya 发表于：2008/10/16 0:57:00

if e.datarow("年月") isnot nothing then
   datatables("流水帐").datarows(0)("余额")=datatables("流水帐").datarows(0)("借")-datatables("流水帐").datarows(0)("贷")
   Dim i As Integer
   For i = 1 to datatables("流水帐").DataRows.Count-1
     datatables("流水帐").datarows(i)("余额")=datatables("流水帐").datarows(i-1)("余额")+datatables("流水帐").datarows(i)("借")-datatables("流水帐").datarows(i)("贷")
   next
else
   e.datarow("余额")=nothing
end if

[此贴子已经被作者于2008-10-16 1:44:20编辑过]

共3 条记录, 每页显示 10 条, 页签: [1]