以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何在组合统计中实现“本月”数据统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127282)
--  作者：明天的灵
--  发布时间：2018/11/9 23:14:00
--  [求助]如何在组合统计中实现“本月”数据统计

所有数据组合统计：

Dim g As New GroupTableBuilder("统计表1", DataTables("产量"))

g.Groups.AddDef("操作台")

g.Totals.AddDef("实际产量")

g.Build()

MainTable = Tables("统计表1")


筛选本有数据的例子：


Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()


如果数据没有进行筛选，这样应该如何在组合统计中加入筛选条件
--  作者：有点蓝
--  发布时间：2018/11/9 23:15:00
--  
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"

Dim g As New GroupTableBuilder("统计表1", DataTables("产量"))

g.Groups.AddDef("操作台")

g.Totals.AddDef("实际产量")

g.filter = Filter

g.Build()

MainTable = Tables("统计表1")
--  作者：明天的灵
--  发布时间：2018/11/9 23:26:00
--  
谢谢！