- 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=59966)
-- 发布时间：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
日期不相同 结果是对的 如有重复日期 就不对了
-- 发布时间：2014/11/15 9:25:00
--
应该用个不重复编号来处理
-- 发布时间：2014/11/15 9:34:00
--
用哪个比较好
-- 发布时间：2014/11/15 9:34:00
--
只要把余额算出来 换其他方法也行
-- 发布时间：2014/11/15 9:39:00
--
你添加的时候直接就按照这个顺序,然后按照_SortKey排序统计比较好
-- 发布时间：2014/11/15 9:42:00
--
添加的时候 是从2个不同表中添加的
一个表添加完了 ，再添加另一个表
-- 发布时间：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
-- 发布时间：2014/11/15 10:40:00
--
窗口中有起始日期 截止日期控件 如何把当月的第一天 最后一天填入进去
-- 发布时间：2014/11/15 10:41:00
--
不要回答了
帮助有答案了
-- 发布时间：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