主题：[求助]请问狐表现在有“行转列”的功能吗？

请问狐表该如何操作或如何写代码实现？

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

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

先谢谢狐狸爸爸指教了！

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

点击浏览该文件:行转列求助.zip

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

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")

谢谢狐狸爸爸！

另外刚在网上找到一句在JET中实现静态行转列的SQL语句，贴在下面与狐友分享，用编程方式组合一下字符串，应该也能实现动态行转列。

SELECT 姓名,
max(iif( 课程 = '语文' , 分数 , 0) ) AS 语文,
max(iif( 课程 = '数学' , 分数 , 0) ) AS 数学,
max(iif( 课程 = '物理' , 分数 , 0) ) AS 物理
FROM {学生成绩表}
GROUP BY 姓名;

呵呵，还是你这段厉害，不过我的通用性强点，不管多少个科目，科目名称怎样，都不需要改代码。