这样，红色代码去掉
Dim g As New CrossTableBuilder("统计", DataTables("表A1"))
g.HGroups.AddDef("出时车牌")
g.VGroups.AddDef("班次")
g.Totals.AddDef("入口站号", AggregateEnum.Count, "出口次数")
g.Totals.AddDef("金额", "金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 2
'g.Build()
'MainTable = Tables("单车出口班次统计")
Tables("单车出口_Table1").DataSource = g.BuildDataSource()
Tables("单车出口_Table1").AutoSizeCols()
加好友 
发短信
Post By：2017/7/12 20:56:00 [显示全部帖子]
