Dim tb4 As Table= Tables("排课_table4")
Dim g As New GroupTableBuilder("统计表1", DataTables("课程安排"))
g.Groups.AddDef("单位全称")
g.Groups.AddDef("学期")
g.Groups.AddDef("年级")
g.Groups.AddDef("班级")
tb4.DataSource = g.Build()
For Each v As String In DataTables("课程安排").GetValues("科目")
tb4.DataTable.DataCols.Add(v,Gettype(String))
Next
For Each r As Row In tb4.Rows
For Each v As String In DataTables("课程安排").GetValues("科目")
Dim dr As DataRow = DataTables("课程安排").find("学期='" & r("学期") & "' And 单位全称= '" & r("单位全称") & "' and 班级='" & r("班级") & "' And 科目 = '" & v & "'")
If dr IsNot Nothing
r(v)=dr("教师姓名") & "/" & dr("节数")
End If
Next
Next
Tables("排课_table4").DataTable.GlobalHandler.DrawCell = True
tb4.AutoSizeCols
tb4.AllowEdit=False
tb4.Cols.Frozen = 4
请问老师，由课程安排生成汇总表，科目的顺序是按音序出来，但由于操作习惯，一般都是语文、数学、英语、政治、历史、等为顺序，由于科目名称和个数不能确定，设置显示列也不能解决，请问老师，有什么办法来实现解决上面问题
加好友 
发短信
Post By：2020/8/20 9:01:00 [显示全部帖子]
