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

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

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

 

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

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例表文件.rar

 

对其中的某个类型进行小计汇总，如对集中或非集中的汇总（见例表）

参考帮助http://www.foxtable.com/help/topics/0681.htm

Dim r As Row = Tables("统计表1").AddNew
r("xs_2") = Tables("统计表1").Compute("Sum(xs_2)")
r("xs_3") = Tables("统计表1").Compute("Sum(xs_3)")
r("xs_4") = Tables("统计表1").Compute("Sum(xs_4)")
r("xs_5") = Tables("统计表1").Compute("Sum(xs_5)")
r("xs_6") = Tables("统计表1").Compute("Sum(xs_6)")

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

 

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

 

Dim r As Row = Tables("统计表1").AddNew r("xs_2") = Tables("统计表1").Compute("Sum(xs_2)") r("xs_3") = Tables("统计表1").Compute("Sum(xs_3)") r("xs_4") = Tables("统计表1").Compute("Sum(xs_4)") r("xs_5") = Tables("统计表1").Compute("Sum(xs_5)") r("xs_6") = Tables("统计表1").Compute("Sum(xs_6)") ?....?????

用按钮的方法已做好，正是这样子的，如果还加一项合计列（非集中学时与集中学时之总和），就更好了。还望不吝赐教。再一次谢谢“有点甜”老师。