主题：统计排序

 Dim sql As String  = "Select  学期,教工姓名,学科, Count(学科) As 课时数  * {教师任课} WHERE  学期 = '" & e.form.Controls("学期").text & "'  GROUP BY 学期,教工姓名,学科"
   Dim b As New CrossTableBuilder("统计表1",sql, "数据库")
   b.HGroups.AddDef("学期")
   b.HGroups.AddDef("教工姓名")
   b.VGroups.AddDef("学科") '添加产品列用于垂直分组
   b.Totals.AddDef("课时数")
   b.HorizontalTotal= True
   b.VerticalTotal = True
   Tables("课时统计_Table1").DataSource = b.BuildDataSource()

 

自动生成是这样的

此主题相关图片如下：qq截图20160107103841.png

 

我想列按这样排序

此主题相关图片如下：qq截图20160107104126.png

请指点，谢谢