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

用交叉表的问题是，如果分数列是字符串的话 就没办法了

 

 

帮助里面有一个例子 是单层的表头

http://www.foxtable.com/help/topics/0679.htm 请参考

 

数据表的列类型是你设置的，分数为什么要字符呢？

有办法，即使分数是字符型也没有问题。

先执行窗口的统计按钮，再到统计操作看看。

 

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

点击浏览该文件:管理项目12.foxdb

曹版后来给写了段代码是可以了

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
    If DataTables("表A").DataCols("分数").IsNumeric
        dtb.AddDef(prd(0) & "_" & prd(1) & "_" & prd(2), Gettype(Integer))
    Else
        dtb.AddDef(prd(0) & "_" & prd(1) & "_" & prd(2), Gettype(String), 32)
    End If
Next
dtb.Build()

For Each Name As String In DataTables("表A").GetComboListString("姓名").Split("|")
    Dim r As Row = Tables("成绩表").AddNew
    r("姓名") = name
    Dim Arys As List(Of String()) = DataTables("表A").GetUniqueValues("姓名 = '" & name & "'","分类","阶段","课程","分数")
    For Each Ary As String() In Arys
        r(Ary(0) & "_" & Ary(1) & "_" & Ary(2)) = Ary(3)
    Next
Next
MainTable= Tables("成绩表")

 

 

上面的代码DataTables("表A").GetUniqueValues("","分类","阶段","课程")

红色部分没办法动态生成，只能硬编码吗？

7号还是没有掌握一些基本的编码常识。
 
你可以:
 
Dim a As String = “分类”
Dim b As String = “阶段”
Dim c As String = “课程”
DataTables("表A").GetUniqueValues("",a,b,c)

 

代码中任何字符型的部分，都可以动态合成。

谢谢老大 如果是有四个的话，哪不是要定义四个变量吗？

这样还不是硬编码了吗？

多种方法解决。

方法一：自己实现GetUniqueValues方法，就可以不受束缚；

方法二：用动态编译的方法。合成一个字符串，然后动态编译一下执行。

小林介绍一下第二种方法