以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  列能否自动排序？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99957)
--  作者：HJG_HB950207
--  发布时间：2017/5/1 13:29:00
--  列能否自动排序？
表A1
      车牌照    入口站号   
       ：
       ：
     

车牌照有上万条记录，（车牌照记录有重复值，如同一台车有时广州上，有时番禺上）入口站名有几百条
用以下代码，分析车辆入口次数：

MainTable = Tables("表A1")
Dim g As New CrossTableBuilder("单车入口站统计", DataTables("表A1"))
g.HGroups.AddDef("车牌照")
g.VGroups.AddDef("入口站名")
g.Totals.AddDef("入口站号", AggregateEnum.Count, "入口站号")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 2
g.Build()
MainTable = Tables("单车入口站统计")
CurrentTable.Cols.Frozen = 1
Tables("单车入口站统计").AutoSizeCols()

请教老师：能否通过代码控制【单车入口站统计】表，使该表的列从左到右，列合计值最多的排在最左，依次往右排。



  
--  作者：有点色
--  发布时间：2017/5/2 11:38:00
--  

1、建议用分组统计，统计后，你可以排序显示。

 

2、生成分组统计以后，你也可以把垂直表变成水平表的，参考 http://www.foxtable.com/webhelp/scr/2965.htm