[求助]请问狐表现在有“行转列”的功能吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请问狐表现在有“行转列”的功能吗？

共有13387人关注过本帖树形打印复制链接主题：[求助]请问狐表现在有“行转列”的功能吗？

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/22 10:17:00 [显示全部帖子]

可以的，之前论坛就做过一个这样的例子。

你自己搞不定的话，做个表，输几行数据，传上来，我帮你写下代码

[此贴子已经被作者于2011-5-22 10:17:06编辑过]

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/22 11:14:00 [显示全部帖子]

在命令窗口执行下面的代码看看：

Dim dtb As New DataTableBuilder("表2")
dtb.AddDef("姓名", Gettype(String), 32)
For Each v As String In DataTables("学生成绩表").GetUniqueValues("","课程")
    dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
For Each v As String In DataTables("学生成绩表").GetUniqueValues("","姓名")
    Dim dr1 As DataRow = DataTables("表2").AddNew()
    dr1("姓名") = v
    For Each dr2 As DataRow In DataTables("学生成绩表").DataRows
        If dr2("姓名") = v Then
            dr1(dr2("课程")) = dr2("分数")
        End If
    Next
Next
MainTable = Tables("表2")