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