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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分组统计

共有3295人关注过本帖树形打印复制链接主题：分组统计

1234567

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

加好友

发短信

等级：二尾狐帖子：564 积分：4692 威望：0 精华：0 注册：2013/2/18 17:46:00

分组统计

Post By：2014/6/13 14:55:00 [只看该作者]

在分组统计中，如果希望按月统计部分客户（如CS01、CS02）在当年的销售金额，该如何操作？

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/6/13 14:56:00 [只看该作者]

http://www.foxtable.com/help/topics/0148.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/13 14:58:00 [只看该作者]

设置一下 filter

Dim d As Date = new Date(Date.Today.Year, 1, 1)
xxx.Filter = "日期 >= #" & d & "# and 日期 < #" & d.AddYears(1) & "#"

1234567

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

加好友

发短信

等级：二尾狐帖子：564 积分：4692 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：2014/6/13 16:00:00 [只看该作者]

为什么是错的？

Dim d As Date = new Date(Date.Today.Year, 1, 1)
Tables("订单").Filter = "日期 >= #" & d & "# and 日期 < #" & d.AddYears(1) & "#"

Dim g As New GroupTableBuilder("统计表1", Tables("订单"))
g.Groups.AddDef("日期", "月")
g.Totals.AddDef("数量")
g.Build()
MainTable = Tables("统计表1")
Dim d As Date = new Date(Date.Today.Year, 1, 1)

dancedy

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

加好友

发短信

等级：婴狐帖子：17 积分：900 威望：0 精华：0 注册：2011/8/4 16:34:00

Post By：2014/6/13 16:08:00 [只看该作者]

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/13 16:08:00 [只看该作者]

Dim d As Date = new Date(Date.Today.Year, 1, 1)

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))
g.Groups.AddDef("日期", "月")
g.Totals.AddDef("数量")
g.Filter = "日期 >= #" & d & "# and 日期 < #" & d.AddYears(1) & "#"
g.Build()
MainTable = Tables("统计表1")

1234567

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

加好友

发短信

等级：二尾狐帖子：564 积分：4692 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：2014/6/14 8:55:00 [只看该作者]

希望用打印后台数据的方式进行分组统计，代码怎么改？

Dim doc As New PrintDoc
Dim rt As New prt.RenderText

Dim cmd As New SQLCommand '定义一个SQL命令
Dim dt As DataTable '定义一个数据表变量
Dim Count As Integer = 0
cmd.CommandText = "Select * From {订单} Where Year(日期) = 2014 "
dt = cmd.ExecuteReader() '生成一个临时表

Dim Agg As New prt.DataBinding.Aggregate("GroupSum") '新定义统计的名称为GroupSum,名称随意即可.

rt.DataBinding.DataSource = BindTables(dt) '这里不是要绑定到临时表吗？

rt.DataBinding.Grouping.Expressions.Add("Fields!日期.Value.Month") '根据月份进行分组
rt.Text= "[Fields!日期.Value.Month]月: [Aggregates!GroupSum.Value]" '设置打印内容
doc.body.Children.Add(rt)

agg.DataBinding = rt.DataBinding 'Agg的DataBinding属性,应该设为打印对象的DataBinding
agg.Running = 1 '分组统计
agg.Expressi '统计字段
doc.DataSchema.Aggregates.Add(agg)'定义好的统计必须添加到报表的DataSchema中

doc.Preview()