| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 临时表多次赋值问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103612) |
| -- 作者：HJG_HB950207 -- 发布时间：2017/7/12 16:41:00 -- 临时表多次赋值问题 表A 有如下几列 车牌照 出口车道 值班员 班次 在窗口只建一张临时表，同时分别建三个按钮 1.按车道分组 2.按值班员分组 3.按班次分组 这三个分组功能，能否在一张临时表中根据选择分别实现。（也就是按按钮车道分组，临时表出现车道分组数据，按按钮值班员分组，临时表出现值班员分组数据，。。。） 我实验几次，好像会自动退出窗口。 谢谢老师！ |
| -- 作者：有点蓝 -- 发布时间：2017/7/12 17:03:00 -- 贴出你实验的代码看看 |
| -- 作者：HJG_HB950207 -- 发布时间：2017/7/12 18:45:00 -- 如下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" *********是否是在按钮前加判断语句，如存在临时表（如单车出口车道统计），先删除啊************* |
| -- 作者：有点甜 -- 发布时间：2017/7/12 20:56:00 -- 这样，红色代码去掉
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()
|