以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何算余额  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59966)
--  作者：jswjyjf
--  发布时间：2014/11/15 9:04:00
--  如何算余额


图片点击可在新窗口打开查看此主题相关图片如下：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

 

 

 

日期不相同 结果是对的 如有重复日期 就不对了
--  作者：Bin
--  发布时间：2014/11/15 9:25:00
--  
应该用个不重复编号来处理
--  作者：jswjyjf
--  发布时间：2014/11/15 9:34:00
--  

用哪个比较好

 
--  作者：jswjyjf
--  发布时间：2014/11/15 9:34:00
--  
只要把余额算出来 换其他方法也行
--  作者：Bin
--  发布时间：2014/11/15 9:39:00
--  
你添加的时候直接就按照这个顺序,然后按照_SortKey排序统计比较好
--  作者：jswjyjf
--  发布时间：2014/11/15 9:42:00
--  

添加的时候 是从2个不同表中添加的

一个表添加完了 ，再添加另一个表 
--  作者：jswjyjf
--  发布时间：2014/11/15 9:52:00
--  

搞定了 用其他方法

Dim s1,s2 As Double
Dim ss As Double
ss=0
Tables("往来明细帐").sort="日期"
Dim ye As Double
ye=1211
For Each dr As Row In Tables("往来明细帐").Rows
\'    s1=Tables("往来明细帐").Compute("Sum(借方金额)","[日期] <=#" & dr("日期") & "#")
 \'   s2=Tables("往来明细帐").Compute("Sum(贷方金额)","[日期] <=#" & dr("日期") & "#")
    ye=ye+dr("借方金额")-dr("贷方金额") 
    dr("余额")=ye
   Next
--  作者：jswjyjf
--  发布时间：2014/11/15 10:40:00
--  

窗口中有起始日期 截止日期控件 如何把当月的第一天 最后一天填入进去
--  作者：jswjyjf
--  发布时间：2014/11/15 10:41:00
--  

不要回答了

帮助有答案了
--  作者：jswjyjf
--  发布时间：2014/11/15 10:48:00
--  
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
e.Form.Controls("startdate").value=Dt1
e.Form.Controls("enddate").value=Dt2