以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  交叉分组问题请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101314)
--  作者：HJG_HB950207
--  发布时间：2017/5/28 10:01:00
--  交叉分组问题请教
表A1

    收费员    日期     班次    收费金额

     ：

     ：


班次分白、晚、夜


   请教代码，用交叉分组模式，计算这段时间内各服务员上了多少白班、晚班、夜班？
  

谢谢！


   
--  作者：HJG_HB950207
--  发布时间：2017/5/28 10:32:00
--  
不好意思，已OK，两次交叉就可以
--  作者：有点色
--  发布时间：2017/5/28 11:02:00
--  
 直接交叉统计也可以得到吧？做个实例上来看看。
--  作者：HJG_HB950207
--  发布时间：2017/5/30 15:13:00
--  2次合计
Dim g As New GroupTableBuilder("收费清单", DataTables("表A1"))
g.Groups.AddDef("日期")
g.Groups.AddDef("收费员")
g.Groups.AddDef("班次")
g.Totals.AddDef("班次", AggregateEnum.Count, "出口次数")
g.Totals.AddDef("金额")
g.Build()
MainTable = Tables("收费清单")

Dim g1 As New CrossTableBuilder("值班统计", DataTables("收费清单"))
G1.HGroups.AddDef("收费员")
G1.VGroups.AddDef("班次")
G1.Totals.AddDef("班次", AggregateEnum.Count, "值班次数")
G1.Totals.AddDef("出口次数", "出口车次")
G1.Totals.AddDef("金额", "金额")
G1.HorizontalTotal = True
G1.VerticalTotal = True
G1.Build()