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

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

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

jswjyjf

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

加好友

发短信

等级：九尾狐帖子：2552 积分：20057 威望：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

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

jswjyjf

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

加好友

发短信

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

Post By：2014/11/15 9:34:00 [显示全部帖子]

用哪个比较好

jswjyjf

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

加好友

发短信

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

Post By：2014/11/15 9:34:00 [显示全部帖子]

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

jswjyjf

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

加好友

发短信

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

Post By：2014/11/15 9:42:00 [显示全部帖子]

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

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

jswjyjf

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

加好友

发短信

等级：九尾狐帖子：2552 积分：20057 威望：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

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

加好友

发短信

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

Post By：2014/11/15 10:40:00 [显示全部帖子]

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

jswjyjf

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

加好友

发短信

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

Post By：2014/11/15 10:41:00 [显示全部帖子]

不要回答了

帮助有答案了

jswjyjf

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

加好友

发短信

等级：九尾狐帖子：2552 积分：20057 威望：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

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

主题：如何算余额