以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  交叉统计中如何进行水平分类汇总  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=48644)
--  作者：liutqj
--  发布时间：2014/4/2 17:19:00
--  交叉统计中如何进行水平分类汇总

交叉统计中如何进行水平分类汇总
--  作者：有点甜
--  发布时间：2014/4/2 17:23:00
--  

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

 

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

 
--  作者：liutqj
--  发布时间：2014/4/3 8:24:00
--  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:例表文件.rar

 

对其中的某个类型进行小计汇总，如对集中或非集中的汇总（见例表）
--  作者：Bin
--  发布时间：2014/4/3 8:31:00
--  
参考帮助http://www.foxtable.com/help/topics/0681.htm
--  作者：lsy
--  发布时间：2014/4/3 8:41:00
--  
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)")
--  作者：有点甜
--  发布时间：2014/4/3 9:47:00
--  

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

 

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")
--  作者：liutqj
--  发布时间：2014/4/3 11:04:00
--  望解释
不明白，望解释。
--  作者：有点甜
--  发布时间：2014/4/3 11:37:00
--  
以下是引用liutqj在2014-4-3 11:04:00的发言：
不明白，望解释。

 

看一下窗口设计

 

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

 
--  作者：liutqj
--  发布时间：2014/4/3 13:22:00
--  
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)") ?....?????
--  作者：liutqj
--  发布时间：2014/4/3 15:42:00
--  如何再加一列总合计
用按钮的方法已做好，正是这样子的，如果还加一项合计列（非集中学时与集中学时之总和），就更好了。还望不吝赐教。再一次谢谢“有点甜”老师。