主题：一个表里筛选统计怎么实现？

 

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

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

g.Groups.AddDef("产品")

g.Totals.AddDef("数量")

g.Filter = "产品  <> 'PD05'"  ‘数量里不算PD05的产品

g.Build()

D.Groups.AddDef("产品")

D.Totals.AddDef("金额")      ‘金额里算所有的资金

D.Build()

MainTable = Tables("统计表1")

 

想在一个统计表里统计出来，请老师指点一下。

没看懂，请使用文字详细说明一下

统计到一个表格当中：第一列：产品分类，第二列：数量分类统计，不包括产品PD05的数量。第三列：所有产品的资金统计。

统计结果应该是这样的就对了。

PD01 193943 3401923.65
PD02 200510 5235463.285
PD03 194018 2433508.06
PD04 195189 4132876.15
PD05             5975820.585

现在是统计完了以后就资金列覆盖数量的统计了。

PD01 193943 3401923.65
PD02 200510 5235463.285
PD03 194018 2433508.06
PD04 195189 4132876.15
PD05             5975820.585
合计 990488 21179591.73

最后的结果是这样的。

分别统计，再组合，参考：http://www.foxtable.com/webhelp/topics/2305.htm

对程序不太懂。刚开始学程序呢。有路过的指点一下吧！！！

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("订单"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("产品") '根据型号分组
bd1.Totals.AddDef("数量") '对数量进行统计

bd1.Filter = "产品 <> 'PD05'"

dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("订单"))
Dim dt2  As fxDataSource
bd2.Groups.AddDef("产品") '根据型号分组
bd2.Totals.AddDef("金额") '对金额进行统计
dt2 = bd2.BuildDataSource()

dt1.Combine("产品",dt2,"产品") '将销售统计数据组合到进货统计数据

dt1.Show("统计表1")

谢谢老师