表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()
请教老师：能否通过代码控制【单车入口站统计】表，使该表的列从左到右，列合计值最多的排在最左，依次往右排。
加好友 
发短信
Post By：2017/5/1 13:29:00 [显示全部帖子]
