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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多列垂直表转多列水平表

共有2956人关注过本帖树形打印复制链接主题：[求助]多列垂直表转多列水平表

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/10 10:28:00 [显示全部帖子]

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

下一主题 >> << 上一主题

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