Dim dt As Date = Date.today
Dim nj As New GroupTableBuilder("按季同环比统计", DataTables("传染病查询一览表"))
nj.Groups.AddDef("发病日期", DateGroupEnum.Year, "年")
nj.Groups.AddDef("发病日期", DateGroupEnum.Quarter, "季")
nj.Groups.AddDef("疾病名称")
nj.Totals.AddDef("发病日期", AggregateEnum.Count, "", "病例数")
nj.GroupProportion = True
nj.GrandProportion = True
nj.SamePeriodGrowth = True
nj.CircleGrowth = True
nj.Filter = "发病日期 = #" & dt & "#"
nj.Build()