垂直表转为水平表错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

For Each v As String In DataTables("自测成绩表").GetValues("学科",Tables("自测成绩表").FIlter)

dtb.AddDef(v, Gettype(Double))

s = s & " + isnull([" & v & "],0)"

dtb.Build()

For Each v As String() In DataTables("自测成绩表").GetValues("学校|年级|班级|单元|座号|姓名"，Tables("自测成绩表").FIlter)

Dim dr1 As DataRow = DataTables("自测水平表").AddNew()

dr1("学校") = v(0)

dr1("年级") = v(1)

dr1("班级") = v(2)

dr1("单元") = v(3)

dr1("座号") = v(4)

dr1("姓名") = v(5)

For Each dr2 As DataRow In DataTables ("自测成绩表").Select("学校 = '" & v(0) & "'and 年级 = '" & v(1) & "' And 班级 = '" & v(2) & "'and 单元 = '" & v(3) & "'and 座号 = '" & v(4) & "' And 姓名 = '" & v(5) & "'") ‘不知道具体数据是什么样的不确定这里是否也添加Tables("自测成绩表").FIlter条件，自己根据数据判断一下

dr1(dr2("学科")) = dr2("分数")

主题：垂直表转为水平表错误