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)
dtb.AddDef("年度",Gettype(String),10)
dtb.AddDef("学期",Gettype(String),10)
Dim s As String = "0 "
Dim filter As String = "学科 is not null"
If Tables("城厢区灵川中心小学自测成绩表").FIlter>"" Then
filter = filter & " and (" & Tables("城厢区灵川中心小学自测成绩表").FIlter & ")"
End If
For Each v As String In DataTables("城厢区灵川中心小学自测成绩表").GetValues("学科",filter )
dtb.AddDef(v, Gettype(Double))
s = s & " + isnull([" & v & "],0)"
Next
dtb.Build()
For Each v As String() In DataTables("城厢区灵川中心小学自测成绩表").GetValues("学校|年级|班级|单元|座号|姓名|年度|学期",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 " & filter ) ' 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|年度|40|学期|50")
MainTable = Tables("自测水平表")
For Each c As Col In Tables("自测水平表").Cols
c.TextAlign = TextAlignEnum.Center
Next
[此贴子已经被作者于2020/11/17 23:25:36编辑过]
加好友 
发短信
Post By：2020/11/17 22:05:00 [显示全部帖子]
