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

请指点，谢谢

不行，交叉统计无法指定排序，如果要处理，就必须生成以后，写一段代码移动列。

具体，你上次foxtable例子。

不然，你就要用代码实现交叉统计功能

http://www.foxtable.com/help/topics/2394.htm

If e.Form.Controls("学期").Value IsNot Nothing Then
 

    Tables("课时统计_Table1").DataSource = b.BuildDataSource()
    Dim dic As new Dictionary(Of String, String)
    For Each c As Col In Tables("课时统计_Table1").Cols
        dic.add(c.Caption, c.name)
    Next
    Dim str As String = "语文,数学,英语,科学,历史"
    Dim ary() As String = str.split(",")
    For i As Integer = ary.length-1 To 0 Step -1
        Tables("课时统计_Table1").Cols(dic(ary(i))).Move(2)
    Next
End If