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

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("姓名", Gettype(String), 32)
For Each v As String In DataTables("表A").GetValues("课程")
    dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
For Each v As String In DataTables("表A").GetValues("姓名")
    Dim dr1 As DataRow = DataTables("表B").AddNew()
    dr1("姓名") = v
    For Each dr2 As DataRow In DataTables("表A").Select("姓名 = '" & v & "'")
     dr1(dr2("课程")) = dr2("分数")
    Next
Next
MainTable = Tables("表B")

请问老师，这里的表B，转换后还是临时表，表B数据内容编辑后，如何存储表B到外部数据源的sql数据库。好比下面的统计表，要编辑后再存储到外部数据源怎么做？

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()

[此贴子已经被作者于2018/7/17 9:22:58编辑过]

主题：垂直表和水平表的转换