Foxtable(狐表)用户栏目专家坐堂 → [求助]如何在组合统计中实现“本月”数据统计


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

主题:[求助]如何在组合统计中实现“本月”数据统计

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


加好友 发短信
等级:一尾狐 帖子:400 积分:4856 威望:0 精华:0 注册:2017/2/7 7:41:00
[求助]如何在组合统计中实现“本月”数据统计  发帖心情 Post By: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(ym1)
Dim 
dt2 As New Date(ymDate.DaysInMonth(ym)) '获取本月的最后一天
Dim 
Filter As String
Filter
 = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
DataTables(
"订单").LoadFilter = Filter
DataTables(
"订单").Load()


如果数据没有进行筛选,这样应该如何在组合统计中加入筛选条件


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


加好友 发短信
等级:超级版主 帖子:110494 积分:562348 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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(ym1)
Dim 
dt2 As New Date(ymDate.DaysInMonth(ym)) '获取本月的最后一天
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")


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


加好友 发短信
等级:一尾狐 帖子:400 积分:4856 威望:0 精华:0 注册:2017/2/7 7:41:00
  发帖心情 Post By:2018/11/9 23:26:00 [只看该作者]

谢谢!

 回到顶部