Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分组统计


  共有4945人关注过本帖树形打印复制链接

主题：分组统计
帅哥哟，离线，有人找我吗？
裴保民
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		分组统计  发帖心情 Post By：2020/3/22 0:36:00 [显示全部帖子]

(1)分组统计怎么统计每一天的合计呢？
分组统计时，按照每天进行统计合计，把日期调整成一个列显示年月日，比如2020年3月2，2020年3月,5，20219年3月2，20218年3月2 等每一天的合计
（2）分组统的时候怎么插入一列作为求另外两列的差值用
[此贴子已经被作者于2020/3/22 2:41:35编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/22 21:16:00 [显示全部帖子]

Tables("收支总账窗体_szzzTable").GrandTotal = True
Dim g As New GroupTableBuilder("收支总账统计表", DataTables("收支交易流水"))
If hztj.Value="按记账日期" Then
    g.Groups.AddDef("记账日期",DateGroupEnum.None,"记账日期")
    g.Totals.AddDef("收入金额","收入金额")
    g.Totals.AddDef("支出金额","支出金额")
    g.Totals.Addexp("收支差额","收入金额- 支出金额")
    g.Filter = "[记账日期] >= #" & StartDate & "# And [记账日期] <= #" & EndDate & "# "
    g.Subtotal = True
    g.SubtotalLevel = 0 '只生成总计行
    g.Build()
    MainTable = Tables("收支总账统计表")
    Tables("收支总账窗体_szzzTable").DataSource = DataTables("收支总账统计表")
    Tables("收支总账窗体_szzzTable").SetColVisibleWidth("记账日期|200|收入金额|200|支出金额|200|收支差额|200")
改为这样统计表不显示“收支差额”列


我的数据库用的是外源数据库Access 怎么用SQLGroupTableBuilder语句呢？


图片点击可在新窗口打开查看此主题相关图片如下：截图01.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2020/3/22 21:29:48编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/22 22:53:00 [显示全部帖子]

还是错误

图片点击可在新窗口打开查看此主题相关图片如下：截图02.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：截图03.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：截图04.jpg
图片点击可在新窗口打开查看
Tables("收支总账窗体_szzzTable").GrandTotal = True
Dim g As New SQLGroupTableBuilder("收支总账统计表", ("收支交易流水"))
If hztj.Value="按记账日期" Then
    g.Groups.AddDef("记账日期",DateGroupEnum.None,"记账日期")
    g.Totals.AddDef("收入金额","收入金额")
    g.Totals.AddDef("支出金额","支出金额")
    g.Totals.Addexp("收支差额","收入金额- 支出金额")
    g.Filter = "[记账日期] >= #" & StartDate & "# And [记账日期] <= #" & EndDate & "# "
    g.Subtotal = True
    g.SubtotalLevel = 0 '只生成总计行
    g.Build()
    MainTable = Tables("收支总账统计表")
    Tables("收支总账窗体_szzzTable").DataSource = DataTables("收支总账统计表")
    Tables("收支总账窗体_szzzTable").SetColVisibleWidth("记账日期|200|收入金额|200|支出金额|200|收支差额|200")

[此贴子已经被作者于2020/3/22 22:53:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/22 23:01:00 [显示全部帖子]

弹出错误框是一样的

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/22 23:38:00 [显示全部帖子]

刚才做了个内表，运行后没出错，外源表测试会出错误的，您测试测试
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:统计测试.rar


[此贴子已经被作者于2020/3/23 0:07:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/23 9:21:00 [显示全部帖子]

谢谢蓝老师！
还有一个问题就是在统计前怎么将两个表的数据合并统计成一个统计表呢？
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/23 16:06:00 [显示全部帖子]

Tables("收支总账窗体_szzzTable").GrandTotal = True
Dim g1 As New SQLGroupTableBuilder("收支总账统计表","收支交易流水")
Dim g2 As New SQLGroupTableBuilder("收支总账统计表2","应付交易流水")
Dim g3 As New SQLGroupTableBuilder("收支总账统计表3","应收交易流水")
g1.C
g2.C
g3.C
Dim dtb1 As fxDataSource
Dim dtb2 As fxDataSource
Dim dtb3 As fxDataSource
If hztj.Value="按记账日期" Then
    g1.Groups.AddDef("记账日期",DateGroupEnum.None)
    g1.Totals.AddDef("收入金额","收入金额")
    g1.Totals.AddDef("支出金额","支出金额")
    g1.Totals.Addexp("收支差额","收入金额- 支出金额")
    g1.Filter = "[记账日期] >= #" & StartDate & "# And [记账日期] <= #" & EndDate & "# "
    g1.Subtotal = True
    g1.SubtotalLevel = 0 '只生成总计行
    g1.Build()
  elseif dtb1 = g1.BuildDataSource()
    g2.Groups.AddDef("记账日期",DateGroupEnum.None)
    g2.Totals.AddDef("应付金额","应付金额")
    g2.Totals.AddDef("已付金额","已付金额")
    g2.Totals.Addexp(","应付金额- 已付金额")
    g2.Filter = "[记账日期] >= #" & StartDate & "# And [记账日期] <= #" & EndDate & "# "
    g2.Subtotal = True
    g2.SubtotalLevel = 0 '只生成总计行
    g2.Build()
   dtb2 =g2.BuildDataSource()
else
    g3.Groups.AddDef("记账日期",DateGroupEnum.None)
    g3.Totals.AddDef("应收金额","应收金额")
    g3.Totals.AddDef("已收金额","已收金额")
    g3.Totals.Addexp("应收差额","应收金额- 已收金额")
    g3.Filter = "[记账日期] >= #" & StartDate & "# And [记账日期] <= #" & EndDate & "# "
    g3.Subtotal = True
    g3.SubtotalLevel = 0 '只生成总计行
    g3.Build()
   dtb3 = g3.BuildDataSource()
   dtb1.Combine("记账日期",dtb2,"记账日期") '将销售统计数据组合到进货统计数据
   dtb1.Combine("记账日期",dtb3,"记账日期") '将退货统计数据组合到进货统计数据
    MainTable = Tables("收支总账统计表")
    Tables("收支总账窗体_szzzTable").DataSource =dtb1
 Tables("收支总账窗体_szzzTable").SetColVisibleWidth("记账日期|150|收入金额|150|支出金额|150|收支差额|150|应付金额|150|已付金额|150|应付差额|150|应收金额|150|已收金额|150|应收差额|150")

这段代码哪有问题呢？运行后提示“”应付差额"重复

[此贴子已经被作者于2020/3/23 17:46:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/23 17:56:00 [显示全部帖子]

蓝老师，执行这个过程需要时间挺长的呀？数据还不呢，如果数据多的话还不得半天呀，能有什么办法提高一下速度吗？

还有一问题是怎样设置成合计行带小数点后两位呢？

图片点击可在新窗口打开查看此主题相关图片如下：截图05.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/3/23 18:40:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/23 20:33:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：截图06.jpg
图片点击可在新窗口打开查看

格式为两位小数
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/23 20:53:00 [显示全部帖子]

是一个综合实例怎么上传呢？

已经解决
[此贴子已经被作者于2020/3/23 21:02:31编辑过]
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 6 次数据查询