弱问,切换当前表的代码怎么写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 弱问,切换当前表的代码怎么写

共有5379人关注过本帖树形打印复制链接主题：弱问,切换当前表的代码怎么写

sky-18

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：655 积分：5004 威望：0 精华：0 注册：2011/11/26 17:46:00

弱问,切换当前表的代码怎么写 发帖心情

Post By：2014/4/26 0:48:00 [只看该作者]

需要当前表自动切换到需要的地方.

也就是说改变当前表的代码怎么写啊?

maintable切换代码直接一个等号就搞定,,但是currenttable好像没有切换的方法.

各位老师指点一下,我已经查了半天帮助文件了,没有查到

程兴刚

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2014/4/26 1:19:00 [只看该作者]

不明白您的意思，提示：当前表可能是关联表，不一定是主表！

lsy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/4/26 8:35:00 [只看该作者]

Tables("xxx").Select(- 1,0) '用- 1是以防该表一行都没有。

sky-18

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：655 积分：5004 威望：0 精华：0 注册：2011/11/26 17:46:00

好像不对

Post By：2014/4/27 1:24:00 [只看该作者]

table的select方法只是选择了某表的区域,但是并没有改变currenttable.

我想要的是这样:我在按下自动录入的按钮后,数据在某一个关联子表里自动录入.但是有可能我的当前表是在另一个表.那么我就看不到数据在相应子表里不停的自动录入的现象了.那我就不能享受那种看着数据不停的自动录入的幸福感了,而且重要的是我不能看到数据录入的进度.

所以,我要求在我按下自动录入按钮后,首先要让数据录入的表变成当前表,也就是要他在屏幕上显示出来,这样在数据录入的时候就能看到数据愉快的跳动了.也能知道数据录入的进度了.

sky-18

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：655 积分：5004 威望：0 精华：0 注册：2011/11/26 17:46:00

就是要显示关联子表(我那个还是子子表) 发帖心情

Post By：2014/4/27 1:26:00 [只看该作者]

程兴刚

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2014/4/27 2:53:00 [只看该作者]

绕这么多干吗？

maintable = tables("数据录入表")

关联表的话，这样试试：

currenttable = tables("父表.子表")

[此贴子已经被作者于2014-4-27 3:03:56编辑过]

lsy

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/4/27 8:59:00 [只看该作者]

指定各类表成为当前表：

MainTable = Tables("客户")
Tables("客户.订单.产品").Grid.Select
Tables("客户").Grid.Select
CurrentTable.Select(- 1,CurrentTable.Cols.Count - 1)
Output.Show(CurrentTable.Name)
MainTable = Tables("订单")
Tables("订单.客户").Grid.Select
CurrentTable.Select(- 1,CurrentTable.Cols.Count - 1)
Output.Show(CurrentTable.Name)
MainTable = Tables("产品")
Tables("产品.订单.客户").Grid.Select
CurrentTable.Select(- 1,CurrentTable.Cols.Count - 1)
Output.Show(CurrentTable.Name)
Forms("窗口1").Controls("Table1").Select
Output.Show(CurrentTable.Name)