主题：[求助]狐爸求助。交叉表转换。

'''///都四尾啦，还这么谦虚

Dim dtb As New DataTableBuilder("成绩表")
dtb.AddDef("姓名", Gettype(String), 32)
Dim prds As List(of String()) = DataTables("表A").GetUniqueValues("","分类","阶段","课程")
For Each prd As String() In prds
    dtb.AddDef(prd(0) & "_" & prd(1) & "_" & prd(2), Gettype(Integer))
Next
dtb.Build()
For Each xm As String In DataTables("表A").GetUniqueValues("","姓名")
    Dim dr As DataRow = DataTables("成绩表").AddNew()
    dr("姓名") = xm
    For Each prd As String() In prds
        dr(prd(0) & "_" & prd(1) & "_" & prd(2)) = DataTables("表A").Compute("Sum(分数)","姓名 = '" & xm & "' And 分类 = '" & prd(0) & "' And 阶段 = '" & prd(1) & "' And 课程 = '" & prd(2) & "'")
   Next
Next
MainTable= Tables("成绩表")

////看看是不是你要的效果