主题：交叉统计中如何进行水平分类汇总

 什么叫水平分类汇总？不是有水平汇总的么？

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

 代码这样写，你做一个按钮执行。

Dim g As New CrossTableBuilder("统计表1", DataTables("学时2013下"))
g.HGroups.AddDef("xq")
g.HGroups.AddDef("zsbh")
g.HGroups.AddDef("xm")
g.VGroups.AddDef("jzfjz")
g.VGroups.AddDef("djnf")
g.VGroups.AddDef("xmmc")
g.Totals.AddDef("xs", "xs")
g.Filter = "xq is not null"
g.Build()
Dim dt As DataTable = DataTables("统计表1")
dt.DataCols.Add("非集中小计", Gettype(Integer), "", "非集中小计")
dt.DataCols.Add("集中小计", Gettype(Integer), "", "集中小计")
For Each dr As DataRow In  dt.DataRows
    For Each dc As DataCol In dt.DataCols
        If dc.Caption.StartsWith("非集中_") Then
            dr("非集中小计") += val(dr(dc.name))
        Else If dc.Caption.StartsWith("集中_") Then
            dr("集中小计") += val(dr(dc.name))
        End If
    Next
Next
MainTable = Tables("统计表1")

看一下窗口设计

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