以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  当年统计，统计临时表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185174)

--  作者：denghui69986 --  发布时间：2023/2/8 16:41:00 --  当年统计，统计临时表 老师如何统计当年，过去年不统计，一直没找到方法试了多次，表上有安年统计当年，过去年份不统计，下图是主表和统计出来临时表，比如我只统计2023年份的过去不统计，安按照当年统计/加工厂/数量/柜数

--  作者：有点蓝 --  发布时间：2023/2/8 16:55:00 --   加条件：http://www.foxtable.com/webhelp/topics/2720.htm

--  作者：denghui69986 --  发布时间：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") \'打开生成的统计表

--  作者：有点蓝 --  发布时间：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 --  发布时间：2023/2/9 9:08:00 --   谢谢，终于可以了