Foxtable(狐表)用户栏目专家坐堂 → 临时表多次赋值问题


  共有1625人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
HJG_HB950207
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:394 积分:6003 威望:0 精华:0 注册:2015/2/17 10:18:00
临时表多次赋值问题  发帖心情 Post By:2017/7/12 16:41:00 [显示全部帖子]

表A 有如下几列
                     车牌照         出口车道            值班员             班次


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

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

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

谢谢老师!


 回到顶部
帅哥哟,离线,有人找我吗?
HJG_HB950207
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:394 积分:6003 威望:0 精华:0 注册:2015/2/17 10:18:00
  发帖心情 Post By: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"

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


 回到顶部