主题：外网统计数据库

Dim A As Date = e.Form.Controls("DateTimePicker1").Text

Dim C As Date = A.AddDays(+15)

Dim b As New SQLGroupTableBuilder("统计表1","O_Sale1Detail")

b.C

b.AddTable("O_Sale1Detail","GoodsId","B_Goods","GoodsId") '添加统计表

b.AddTable("O_Sale1Detail","BillNo","O_Sale1","BillNo") '添加统计表

b.Filter = "{O_Sale1}.BillDate >= '" & A & "' And {O_Sale1}.BillDate <= '" & C & " ' "

b.Groups.AddDef("{O_Sale1}.OrigBillNo","业务类型")

b.Groups.AddDef("{B_Goods}.Code","货品代码")

b.Groups.AddDef("{B_Goods}.Name","货品名称")

b.Totals.AddDef("{O_Sale1Detail}.Quantity","数量") '对数量进行统计

b.Totals.AddDef("{O_Sale1Detail}.Amount","金额")

Tables("商品查询_Table1").DataSource = b.BuildDataSource()

DataTables("商品查询_Table1").DataCols("数量").SetFormat("0")