主题：[求助]垂直列转水平列多层表头（已解决！）

求教垂直列转水平列多层表头的代码。

 如下图

此主题相关图片如下：1.png

需要转换成下图的样子

此主题相关图片如下：2.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:示例.table

请问后面怎么把相应的数据填到相应的列中去？

Dim dtb As New DataTableBuilder("车间报表")
dtb.AddDef("工单号", Gettype(String), 32)
For Each v As String In DataTables("流转车间").GetValues("流转车间")
    dtb.AddDef(v & "_日生产数量", Gettype(String))
    dtb.AddDef(v & "_良品数量", Gettype(String), 32)
Next
dtb.Build()
For Each v As String In DataTables("流转车间").GetValues("工单号")
    Dim dr1 As DataRow = DataTables("车间报表").AddNew()
    dr1("工单号") = v
    For Each dr2 As DataRow In DataTables("流转车间").Select("工单号 = '" & v & "'")
        MessageBox.Show(9)
        dr1(dr2("流转车间") & "_日生产数量") = dr2("日生产数量")
        dr1(dr2("流转车间") & "_良品数量") = dr2("良品数量")
    Next
Next
MainTable = Tables("车间报表")

这样好像可以了！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:示例.table

请帮忙看一下，我加了颜色、尺码两个字段，出错了！

此主题相关图片如下：123.png