Dim b1 As New sqlgroupTableBuilder("统计表1","店铺销售明细商品")
Dim dt1 As fxDataSource
b1.C
b1.Groups.AddDef("店仓ID")
b1.Groups.AddDef("商品款号")
b1.Groups.AddDef("颜色")
b1.Groups.AddDef("尺码")
b1.Groups.AddDef("店仓名称","销售_店仓名称")
b1.Totals.AddDef("销售数量","销售_数量")
b1.filter = filter & " and " & filter2
b1.CommandTimeOut = 600
dt1 = b1.BuildDataSource()
Dim b2 As New SQLgroupTableBuilder("统计表2","此刻库存")
Dim dt2 As fxDataSource
b2.C
b2.Groups.AddDef("店仓ID")
b2.Groups.AddDef("商品款号")
b2.Groups.AddDef("颜色")
b2.Groups.AddDef("尺码")
b2.Groups.AddDef("店仓名称","可用库存_店仓名称")
b2.Totals.AddDef("可用库存","可用库存_数量")
b2.filter = filter2
b2.CommandTimeOut = 600
dt2 = b2.BuildDataSource()
Dim b3 As New SQLgroupTableBuilder("统计表3","m_product")
Dim dt3 As fxDataSource
b3.C
b3.Groups.AddDef("name")
b3.Groups.AddDef("pricelist","吊牌价")
b3.filter = filter3
b3.CommandTimeOut = 600
dt3 = b3.BuildDataSource()
Dim nms1 As String() = {"商品款号","店仓ID","颜色","尺码"} '指定连接列
Dim nms2 As String() = {"商品款号"} '
Dim nms3 As String() = {"name"} '
dt1.Combine(nms1,dt2,nms1)
dt1.Combine(nms2,dt3,nms3)
forms("otb").Controls("table1").Table.DataSource = dt1