如何算余额 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何算余额

共有3710人关注过本帖树形打印复制链接主题：如何算余额

jswjyjf

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

如何算余额

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/11/15 9:25:00 [只看该作者]

应该用个不重复编号来处理

jswjyjf

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

Post By：2014/11/15 9:34:00 [只看该作者]

用哪个比较好

jswjyjf

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

Post By：2014/11/15 9:34:00 [只看该作者]

只要把余额算出来换其他方法也行

Bin

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/11/15 9:39:00 [只看该作者]

你添加的时候直接就按照这个顺序,然后按照_SortKey排序统计比较好

jswjyjf

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

Post By：2014/11/15 9:42:00 [只看该作者]

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

一个表添加完了，再添加另一个表

jswjyjf

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

Post By：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

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

Post By：2014/11/15 10:40:00 [只看该作者]

窗口中有起始日期截止日期控件如何把当月的第一天最后一天填入进去

jswjyjf

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

Post By：2014/11/15 10:41:00 [只看该作者]

不要回答了

帮助有答案了

jswjyjf

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

Post By：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

下一主题 >> << 上一主题

主题：如何算余额