以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]流水帐余额算法？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=889)
--  作者：riancel
--  发布时间：2008/10/15 22:50:00
--  [求助]流水帐余额算法？

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


图片点击可在新窗口打开查看此主题相关图片如下：liushui.jpg
图片点击可在新窗口打开查看

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:流水帐.rar


重传过文件，能下了
[此贴子已经被作者于2008-10-16 0:21:14编辑过]
--  作者：shxiaoya
--  发布时间：2008/10/15 23:48:00
--  
文件下载不了
--  作者：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编辑过]