如下2按钮对同一张表:单车出口_Table1 交叉选择按钮时,会自动退出
按钮【按班次】的代码为:
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()
Tables("单车出口_Table1").Sort = "合计_出口次数 DESC"
按钮【按车道】的代码为:
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()
Tables("单车出口_Table1").Sort = "合计_出口次数 DESC"
*********是否是在按钮前加判断语句,如存在临时表(如单车出口车道统计),先删除啊*************