专家坐堂-垂直表和水平表的转换Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tbl As Table = Tables("选择款_Table1")

Dim pd As WinForm.ComboBox = Forms("窗口").Controls("ComboBox1")

If tbl.Current IsNot Nothing Then

pd.text = tbl.Current("款号")

End If

\'用SQL语句生成临时表

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "Select * F ROM {款号登记} 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("颜色名称")

b.VGroups.AddDef("尺码名称")

b.HorizontalTotal = True

b.VerticalTotal = True

b.Build()

\' MainTable = Tables("横向出货计划1")

Tables("窗口_Table2").DataSource = b.BuildDataSource()

DataTables("窗口_Table2").load()

Forms("选择款").Close()