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

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

共有5363人关注过本帖树形打印复制链接主题：当年统计，统计临时表

denghui69986

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

等级：一尾狐帖子：499 积分：3262 威望：0 精华：0 注册：2022/3/25 7:44:00

当年统计，统计临时表 发帖心情

Post By：2023/2/8 16:41:00 [显示全部帖子]

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

denghui69986

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

等级：一尾狐帖子：499 积分：3262 威望：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") '打开生成的统计表

denghui69986

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

等级：一尾狐帖子：499 积分：3262 威望：0 精华：0 注册：2022/3/25 7:44:00

Post By：2023/2/9 9:08:00 [显示全部帖子]

谢谢，终于可以了

主题：当年统计，统计临时表