你要是想只统计筛选出来的结果:
Dim g As New GroupTableBuilder("统计表1", DataTables("明细"))g.Groups.AddDef("单价")g.Totals.AddDef("实际吨位")
g.Filter = Tables("明细").Filterg.Build()MainTable = Tables("统计表1")