临时表多次赋值问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

表A 有如下几列

车牌照出口车道值班员班次

在窗口只建一张临时表，同时分别建三个按钮 1.按车道分组 2.按值班员分组 3.按班次分组

这三个分组功能，能否在一张临时表中根据选择分别实现。（也就是按按钮车道分组，临时表出现车道分组数据，按按钮值班员分组，临时表出现值班员分组数据，。。。）

我实验几次，好像会自动退出窗口。

谢谢老师！

贴出你实验的代码看看

如下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"

*********是否是在按钮前加判断语句，如存在临时表（如单车出口车道统计），先删除啊*************

这样，红色代码去掉

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()

主题：临时表多次赋值问题