以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问下财务上的银行日记账怎么计算准确  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123547)

--  作者:zoudezhao
--  发布时间:2018/8/17 14:16:00
--  请问下财务上的银行日记账怎么计算准确

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20180817141131.png
图片点击可在新窗口打开查看
我想请问下财务上的银行日记账中 借方贷方余额的关系怎么计算才能保证数值的准确度
--  作者:有点蓝
--  发布时间:2018/8/17 15:06:00
--  
全部使用高精度列,不要设置小数点位数
--  作者:zoudezhao
--  发布时间:2018/8/17 15:26:00
--  

蓝版那余额应该怎么计算,我是通过借方总和减去贷方总和的方法计算该行余额的值,BeforeSaveDataRow我是这样设置的

    Dim Val As Double
    Dim Val1 As Double
    Val = DataTables("银行日记账").SQLCompute("Sum(借方)")
    Val1 = DataTables("银行日记账").SQLCompute("Sum(贷方)")
    e.DataRow("余额") = Val - Val1 - e.DataRow("贷方") + e.DataRow("借方")

保存时只能使用循环来保存才不会导致保存后余额不等于借方总和减去贷方总和。有没有其他更好的计算方法。。而且因为是写在BeforeSaveDataRow  只有保存后才会显示余额看着也很别扭

For each r as row in tables("银行日记账").Rows

r.save

Next

 


--  作者:有点蓝
--  发布时间:2018/8/17 15:48:00
--  
参考:http://www.foxtable.com/webhelp/scr/2136.htm