以下是引用狐狸爸爸在2009-5-7 8:51:00的发言: Dim b As New GroupTableBuilder("fa piao汇总",DataTables("qr")) b.Groups.AddDef("fa piao性质") b.filter = Tables("fa piao汇总").Filter b.Totals.AddDef("fa piao性质",AggregateEnum.Count,"开piao份数") b.Totals.AddDef("合计金额") '对数量进行统计 b.Build