Foxtable(狐表)用户栏目专家坐堂 → [求助]流水帐余额算法?


  共有28982人关注过本帖树形打印复制链接

主题:[求助]流水帐余额算法?

美女呀,离线,留言给我吧!
shxiaoya
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:191 积分:1442 威望:0 精华:2 注册:2008/9/7 21:30:00
  发帖心情 Post By:2008/10/15 23:48:00 [显示全部帖子]

文件下载不了

 回到顶部
美女呀,离线,留言给我吧!
shxiaoya
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:191 积分:1442 威望:0 精华:2 注册:2008/9/7 21:30:00
  发帖心情 Post By: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编辑过]

 回到顶部