主题：[求助]多列垂直表转多列水平表

原数据表：

此主题相关图片如下：原数据表.png

上图表，转成下图这个表的按钮代码怎么写？求帮助

此主题相关图片如下：原数据表，怎么转成这个表？.png

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

点击浏览该文件:多列垂直表转多列水平表.foxdb

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

室内设计项目，只转换当前行，不是全部行都转换到表：怎么转成这个表

也就是 像下图所示：只导出1807-0001，不导出1807-002，代码怎么修改呢？


此主题相关图片如下：只导出1807-0001，不导出1807-002.png

回复3楼，2楼的代码，没问题。贴出你所写代码。

2楼代码，转换 室内设计项目 表里面全部行，没问题

不过我只想实现转换 转换 室内设计项目 表里面当前选择的1行，代码不会改

也就是只转换 当前选择的第一行 1807-0001（项目编号）

此主题相关图片如下：只转换1行.png

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