Foxtable(狐表)用户栏目专家坐堂 → 当年统计,统计临时表


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

主题:当年统计,统计临时表

帅哥哟,离线,有人找我吗?
denghui69986
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3303 威望:0 精华:0 注册:2022/3/25 7:44:00
当年统计,统计临时表  发帖心情 Post By:2023/2/8 16:41:00 [只看该作者]

老师如何统计当年,过去年不统计,一直没找到方法试了多次,表上有安年统计当年,过去年份不统计,下图是主表和统计出来临时表,比如我只统计2023年份的过去不统计,安按照当年统计/加工厂/数量/柜数图片点击可在新窗口打开查看

图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/8 16:55:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
denghui69986
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3303 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2023/2/9 7:48:00 [只看该作者]

老师帮忙看看我这代码还是有问题,还是把所有年份全部统计了,没分开本年统计
Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "输入日期 >= #" & dt1 & "# And 输入日期 <= #" & dt2 & "#"
Tables("月生产报表").Filter = Filter
Dim b As New GroupTableBuilder("统计表1", DataTables("月生产报表"))
b.Groups.AddDef("加工厂", "加工厂") '添加日期列用于分组,并用"月份"代替原名称
b.Totals.AddDef("数量") '添加数量列用于统计
b.Totals.AddDef("柜数") '添加金额列用于统计
b.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/9 8:39:00 [只看该作者]

Dim b As New GroupTableBuilder("统计表1", DataTables("月生产报表"))
b.Groups.AddDef("加工厂", "加工厂") '添加日期列用于分组,并用"月份"代替原名称
b.Totals.AddDef("数量") '添加数量列用于统计
b.Totals.AddDef("柜数") '添加金额列用于统计
b.Filter = Filter
b.Build '生成统计表


此主题相关图片如下:1.png
按此在新窗口浏览图片


 回到顶部
帅哥哟,离线,有人找我吗?
denghui69986
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3303 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2023/2/9 9:08:00 [只看该作者]

谢谢,终于可以了

 回到顶部