以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  当年统计,统计临时表  (http://foxtable.net/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
--  
谢谢,终于可以了