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


  共有2633人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
湛江智
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
[求助]多列垂直表转多列水平表  发帖心情 Post By:2018/7/9 17:01:00 [只看该作者]

原数据表:


图片点击可在新窗口打开查看此主题相关图片如下:原数据表.png
图片点击可在新窗口打开查看

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


图片点击可在新窗口打开查看此主题相关图片如下:原数据表,怎么转成这个表?.png
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:多列垂直表转多列水平表.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟,离线,有人找我吗?
湛江智
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点甜)Dim t1 As Table = Tables("怎么转成...  发帖心情 Post By:2018/7/9 18:17:00 [只看该作者]

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

也就是 像下图所示:只导出1807-0001,不导出1807-002,代码怎么修改呢?


图片点击可在新窗口打开查看此主题相关图片如下:只导出1807-0001,不导出1807-002.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/7/10 9:43:45编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/10 10:28:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
湛江智
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点甜)回复3楼,2楼的代码,没问题。贴出你...  发帖心情 Post By:2018/7/10 10:50:00 [只看该作者]

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

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

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


图片点击可在新窗口打开查看此主题相关图片如下:只转换1行.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/7/10 10:52:21编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部