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

此主题相关图片如下：表a.png


此主题相关图片如下：表b.png

请问：

1.如何把表A转换成表B，帮助上的例子我看了，能力有限，多个垂直列的就不会了。

2.如何把表B修改过的数据存到表A里面呢？

期待解答

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

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

非常感谢。

唐兄。这么写是没问题。我想要一个通用一点的。

类似狐表的交叉表生成器那样的代码。

这个表并不是要统计数据，统计的话直接用交叉表统计就行了

有两个目的，

1.是数据表转换为交叉表

2.在交叉表中方便的编辑数据，然后还能保存的数据表中

嗯 谢谢c版 确实要的不是统计

而是表的形式转换

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

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

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

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

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("","分类","阶段","课程")

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

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

这样还不是硬编码了吗？

小林介绍一下第二种方法