下面代码是在有筛选情况下进行转化，在三个学科同时存在时，筛选两个学科时，总有一个学科成绩显示不正常，

每个学生的成绩全是最后一个座号的成绩。如何做到筛选不影响成绩？

如表：

此主题相关图片如下：系统筛选树.png

此主题相关图片如下：转为水平表.png

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

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

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

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

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

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

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

dtb.AddDef("年度",Gettype(String),20)

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)

    dr1("年度") = v(6)

    dr1("学期") = v(7)

   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|体育|50|美术|50|科学|50|道德与法治|50|信息技术|50|总分|50|年度|40|学期|20")

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