主题：如何算余额

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

 

如上图 如何算余额

 

我用了 Dim s1,s2 As Double
Dim ss As Double
ss=2
Tables("往来明细帐").sort="日期,单据号"
For Each dr As Row In Tables("往来明细帐").Rows
msgbox(dr.Index)
    s1=Tables("往来明细帐").Compute("Sum(借方金额)","[日期] <=#" & dr("日期") & "#")
    s2=Tables("往来明细帐").Compute("Sum(贷方金额)","[日期] <=#" & dr("日期") & "#")
    dr("余额")=ss+s1-s2 
   Next

 

 

 

日期不相同 结果是对的 如有重复日期 就不对了