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

请贴出更改后的完整代码

For Each v As String In DataTables("自测成绩表").GetValues("学科",IIF(Tables("自测成绩表").FIlter>"",Tables("自测成绩表").FIlter & " and 学科 is not null", "学科 is not null"))

筛选选定语文，水平结构表中的语文成绩没显示出来。

不好意思，英语只学到初中，况且很多年了，基本上忘了，对代码学习有点吃力。

可以了，谢谢老师！

以下是完整代码，操作遇到问题：“中心小学自测成绩表”中含有“语文”“数学”“英语”，选定目录树中任一学科（如“数学”）或“年级（如：三年级），

都会提示：另外的列不属于表自测水平表（如：列”语文“”英语“不属于表 自测水平表）；

1、如果把“中心小学自测成绩表”中的“语数英”三科全选中，选定后转化自测水平表，正常。

2、如果“中心小学自测成绩表”中仅有“语文”“数学”“英语”其中一科，选定后转化自测水平表，正常。

此主题相关图片如下：自定义的窗口目录树.png

Dim dtb As New DataTableBuilder("自测水平表")

dtb.AddDef("学校",Gettype(String),10)

dtb.AddDef("年级",Gettype(String),10)

dtb.AddDef("班级",Gettype(String),10)

dtb.AddDef("单元",Gettype(String),10)

dtb.AddDef("座号",Gettype(String),10)

dtb.AddDef("姓名",Gettype(String),10)

Dim s As String = "0 "

For Each v As String In DataTables("中心小学自测成绩表").GetValues("学科",IIF(Tables("中心小学自测成绩表").FIlter>"",Tables("中心小学自测成绩表").FIlter & " and 学科 is not null", "学科 is not null"))

    dtb.AddDef(v, Gettype(Double))

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

Next

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) & "'") ' And " & IIF(Tables("城厢区灵川中心小学自测成绩表").FIlter> "",Tables("城厢区灵川中心小学自测成绩表").FIlter, "1=1"))        

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

    Next

Next

DataTables("自测水平表").DataCols.Add("总分",Gettype(Double), s)

Tables("自测水平表").SetColVisibleWidth("学校|85|年级|60|班级|50|单元|50|座号|50|姓名|50|语文|50|数学|50|英语|50|总分|50")

MainTable = Tables("自测水平表")

生成的统计表数据是怎么样的？截图看看，目录树勾选的代码发上来