'用SQL语句生成临时表
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
'cmd.CommandText = "Select * F ROM {大货用料表} A left JOIN {款式颜色} B ON A.款号 = B.款号 left join {款式尺码} C on A.{款号}= C.{款号} "
cmd.CommandText = "Select * F ROM {款号登记} left JOIN {款式颜色} ON {款号登记}.款号 = {款式颜色}.款号 left join {款式尺码} on {款号登记}.款号= {款式尺码}.款号 left join {大货用料表} on {款号登记}.{款号}={大货用料表}.{款号} "
dt = cmd.ExecuteReader()
'对临时进行分组统计
Dim b As New CrossTableBuilder("大货用量颜色尺码",dt)
'b.HGroups.AddDef("物料基本信息_序号")
b.HGroups.AddDef("物料基本信息_物料大类")
b.HGroups.AddDef("物料基本信息_客供")
b.HGroups.AddDef("物料基本信息_物料名称")
b.HGroups.AddDef("物料基本信息_物料辅助说明")
b.HGroups.AddDef("物料基本信息_部位及用途")
b.HGroups.AddDef("物料基本信息_布封")
b.HGroups.AddDef("物料基本信息_克重")
b.HGroups.AddDef("物料基本信息_单位")
b.HGroups.AddDef("物料基本信息_版规格配色要求")
b.HGroups.AddDef("物料基本信息_不分色")
b.HGroups.AddDef("物料基本信息_适用颜色")
b.HGroups.AddDef("物料基本信息_同色")
b.HGroups.AddDef("物料基本信息_同量")
b.HGroups.AddDef("物料基本信息_分码")
b.HGroups.AddDef("物料基本信息_适用尺码")
b.HGroups.AddDef("物料基本信息_物料编码")
b.HGroups.AddDef("用量信息_待定")
b.HGroups.AddDef("用量信息_上级")
b.HGroups.AddDef("用量信息_领料部门")
b.HGroups.AddDef("用量信息_变更日期")
b.HGroups.AddDef("用量信息_下级")
b.HGroups.AddDef("供应商属性_供应商名称")
b.HGroups.AddDef("供应商属性_转换率")
b.HGroups.AddDef("供应商属性_采购单位")
b.HGroups.AddDef("供应商属性_成份")
b.VGroups.AddDef("颜色","颜色_{0}")
b.VGroups.AddDef("尺码","尺码_{0}")
'b.Totals.AddDef("颜色", AggregateEnum.count)
'b.Totals.AddDef("尺码", AggregateEnum.count)
b.HorizontalTotal = True
b.VerticalTotal = True
b.Build()
Tables("大货用量表_Table2").DataSource = b.BuildDataSource()