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

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


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

 

请问：

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

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

期待解答

 

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

点击浏览该文件:管理项目4.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
    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("成绩表")

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

非常感谢。

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

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

代码出错 ,无效的集合函数

////代码错是因为项目的分数列类型有问题，字符型的列是不能统计总和的

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

 

有两个目的，

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

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

          

表A到表B直接交叉统计就可以了吧。

将表A分数列改成数值型，代码。

 

Dim g As New CrossTableBuilder("统计表1", DataTables("表A"))
g.HGroups.AddDef("姓名")
g.VGroups.AddDef("分类")
g.VGroups.AddDef("阶段")
g.VGroups.AddDef("课程")
g.Totals.AddDef("分数", "分数")
g.Build()
MainTable = Tables("统计表1")

 

可能我理会错了，楼主要的不是交叉统计。

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

而是表的形式转换

目地是 做到交叉表的形式 但是在交叉表里面输入数据后 保存到原来的表中.

 

如果这样的话，表B就不需要临时生成，因为生成临时表还不如直接用交叉统计。

仅数据转换不是难事。