- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]多列垂直表转多列水平表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121573)
-- 发布时间：2018/7/9 17:01:00
-- [求助]多列垂直表转多列水平表
原数据表：
此主题相关图片如下：原数据表.png
上图表，转成下图这个表的按钮代码怎么写？求帮助
此主题相关图片如下：原数据表，怎么转成这个表？.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:多列垂直表转多列水平表.foxdb |
-- 发布时间：2018/7/9 17:49:00
--
Dim t1 As Table = Tables("怎么转成这个表")
Dim t2 As Table = Tables("室内设计项目")
Dim kms() As String = {"方案设计完成时间节点_效果图方案","方案设计完成时间节点_扩初图会签","深化设计完成时间节点_全套施工图"}
For Each dr1 As DataRow In t2.DataTable.dataRows
For Each km As String In kms
Dim dr2 As DataRow = t1.DataTable.AddNew()
dr2("项目编号") = dr1("项目编号")
dr2("设计任务要求_省份") = dr1("设计任务要求_省份")
\'dr2() = dr1()
dr2("项目子任务") = km
dr2("项目子任务计划开始日期") = dr1(km & "_计划开始日期")
dr2("项目子任务计划结束日期") = dr1(km & "_计划完成日期")
Next
Next
MainTable = t1
-- 发布时间：2018/7/9 18:17:00
-- 回复：（有点甜）Dim t1 As Table = Tables("怎么转成...
室内设计项目，只转换当前行，不是全部行都转换到表：怎么转成这个表
也就是 像下图所示：只导出1807-0001，不导出1807-002，代码怎么修改呢？此主题相关图片如下：只导出1807-0001，不导出1807-002.png
[此贴子已经被作者于2018/7/10 9:43:45编辑过]
-- 发布时间：2018/7/10 10:28:00
--
回复3楼，2楼的代码，没问题。贴出你所写代码。
-- 发布时间：2018/7/10 10:50:00
-- 回复：（有点甜）回复3楼，2楼的代码，没问题。贴出你...
2楼代码，转换 室内设计项目 表里面全部行，没问题
不过我只想实现转换 转换 室内设计项目 表里面当前选择的1行，代码不会改
也就是只转换 当前选择的第一行 1807-0001（项目编号）
此主题相关图片如下：只转换1行.png
[此贴子已经被作者于2018/7/10 10:52:21编辑过]
-- 发布时间：2018/7/10 12:06:00
--
Dim t1 As Table = Tables("怎么转成这个表")
Dim t2 As Table = Tables("室内设计项目")
Dim kms() As String = {"方案设计完成时间节点_效果图方案","方案设计完成时间节点_扩初图会签","深化设计完成时间节点_全套施工图"}
Dim dr1 As Row = t2.current
For Each km As String In kms
Dim dr2 As DataRow = t1.DataTable.AddNew()
dr2("项目编号") = dr1("项目编号")
dr2("设计任务要求_省份") = dr1("设计任务要求_省份")
\'dr2() = dr1()
dr2("项目子任务") = km
dr2("项目子任务计划开始日期") = dr1(km & "_计划开始日期")
dr2("项目子任务计划结束日期") = dr1(km & "_计划完成日期")
Next
MainTable = t1