Dim g As New GroupTableBuilder("统计表1", DataTables("收费明细"))
g.Groups.AddDef("收费项目", "收费项目名称")
g.Groups.AddDef("生产厂家")
g.Groups.AddDef("规格")
g.Groups.AddDef("单位")
g.Groups.AddDef("单价")
g.Totals.AddDef("数量")
g.Totals.AddDef("金额")
g.Decimals = 2
g.Filter = "日期 = \'" & dt1 & "\'"
g.FromServer = True