- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]垂直列转水平列多层表头（已解决！） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88218)
-- 发布时间：2016/7/29 10:46:00
-- [求助]垂直列转水平列多层表头（已解决！）
求教垂直列转水平列多层表头的代码。
如下图
此主题相关图片如下：1.png
需要转换成下图的样子此主题相关图片如下：2.png
-- 发布时间：2016/7/29 10:59:00
--
请提供项目实例
-- 发布时间：2016/7/29 11:00:00
--
或者参考http://www.foxtable.com/webhelp/scr/2965.htm
-- 发布时间：2016/7/29 11:01:00
--
就是多层表头不知道怎么设置。
-- 发布时间：2016/7/29 11:52:00
--
标题改为带下划线即可，如“定型_日产量”，“定型_良品数”
-- 发布时间：2016/7/29 13:33:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:示例.table |
请问后面怎么把相应的数据填到相应的列中去？
-- 发布时间：2016/7/29 13:36:00
--
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("车间报表")
这样好像可以了！
-- 发布时间：2016/7/29 14:17:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:示例.table |
请帮忙看一下，我加了颜色、尺码两个字段，出错了！此主题相关图片如下：123.png