汇总表字段列顺序问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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))

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

Tables("排课_table4").DataTable.GlobalHandler.DrawCell = True

tb4.AutoSizeCols

tb4.AllowEdit=False

tb4.Cols.Frozen = 4

请问老师，由课程安排生成汇总表，科目的顺序是按音序出来，但由于操作习惯，一般都是语文、数学、英语、政治、历史、等为顺序，由于科目名称和个数不能确定，设置显示列也不能解决，请问老师，有什么办法来实现解决上面问题

主题：汇总表字段列顺序问题