Dim g As New GroupTableBuilder("统计表1", DataTables("订单")) g.Groups.AddDef("日期", DateGroupEnum.Day, "日") g.Totals.AddDef("数量") g.Filter = "[日期] > #01/02/1999# and [日期] < #3/02/1999#" g.Build() Tables("统计表1").DataTable.DataCols("日").SetDateTimeFormat(DateTimeFormatEnum.Date) MainTable = Tables("统计表1")