主题：筛选后的数据如何统计

筛选后数据，这样统计是来自为筛选的，怎样实现筛选后的数据统计

Dim zzrs As New GroupTableBuilder("统计表1", DataTables("人事档案基础信息"))
zzrs.Groups.AddDef("性别")
'zzrs.Filter = filter
zzrs.Totals.AddDef("姓名", AggregateEnum.Count,"现有人数",True)  '--统计姓名列行数,填充到临时表现有人数列
zzrs.Subtotal = True
zzrs.Build()