Dim g As New GroupTableBuilder("统计表1", DataTables("订单")) g.Groups.AddDef("产品编码") g.Groups.AddDef("产品型态") g.Groups.AddDef("产品") g.Totals.AddDef("数量") g.Totals.AddDef("金额") g.VerticalTotal = True e.Form.controls("Table1").Table.Datasource = g.BuildDataSource