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

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

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

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6688 威望：0 精华：0 注册：2014/11/26 12:32:00

[求助]水平表转垂直表请教 发帖心情

Post By：2016/4/12 14:30:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:水平表转垂直表请教.table

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/12 14:45:00 [只看该作者]

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("班级", Gettype(String), 255)
For Each v As String In DataTables("成绩表").GetValues("姓名")
dtb.AddDef(v, Gettype(String), 999)
Next

dtb.Build()
For Each dr As DataRow In DataTables("成绩表").Select("")
    Dim dr1 As DataRow = DataTables("表B").AddNew()
    dr1("班级") = dr("班级")

    dr1(dr("姓名")) = dr("语文")
Next
MainTable = Tables("表B")

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6688 威望：0 精华：0 注册：2014/11/26 12:32:00

Post By：2016/4/12 15:03:00 [只看该作者]

此主题相关图片如下：加分数列.png

此主题相关图片如下：加分数列2.png

大师，增加一列，分数，代码修改呢？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/12 15:11:00 [只看该作者]

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("班级", Gettype(String), 255)
For Each v As String In DataTables("成绩表").GetValues("姓名")
dtb.AddDef(v & "_项目", Gettype(String), 999)
dtb.AddDef(v & "_分数", Gettype(String))
Next

dtb.Build()
For Each dr As DataRow In DataTables("成绩表").Select("")
    Dim dr1 As DataRow = DataTables("表B").AddNew()
    dr1("班级") = dr("班级")

    dr1(dr("姓名") & "_项目") = dr("语文")
    dr1(dr("姓名") & "_分数") = dr("分数")
Next
MainTable = Tables("表B")

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6688 威望：0 精华：0 注册：2014/11/26 12:32:00

Post By：2016/4/12 15:15:00 [只看该作者]

可以了，谢红袍大师

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

主题：[求助]水平表转垂直表 请教

主题：[求助]水平表转垂直表请教