Foxtable(狐表)用户栏目专家坐堂 → 如果将表固定在最左边


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

主题:如果将表固定在最左边

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


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
如果将表固定在最左边  发帖心情 Post By:2015/8/8 18:57:00 [只看该作者]

请问,如果将一个指定的表,固定在最左边的位置。

例如:系统导航表,永远在第一个表的位置。

 


图片点击可在新窗口打开查看此主题相关图片如下:3$4yzwy$}yw%y@{9w6g}en.png
图片点击可在新窗口打开查看

 

而不会出现这样的现象

 


图片点击可在新窗口打开查看此主题相关图片如下:t2n`cd`8k`i13qpseyjlk%c.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:一尾狐 帖子:431 积分:3214 威望:0 精华:2 注册:2011/9/10 21:35:00
  发帖心情 Post By:2015/8/8 20:13:00 [只看该作者]

项目属性-不允许移动表

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


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
  发帖心情 Post By:2015/8/10 8:58:00 [只看该作者]

Tables("系统导航").Visible = False
MainTable = Tables("系统导航")
For I As Integer = 1 To 9
    Syscmd.Table.MoveLeft()
Next
Tables("系统导航").Visible = True
Forms("系统导航").Show

 

以上方式虽然解决问题,但显示和反应的速度很慢,要等上几秒钟。请问有更好的办法吗?


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/10 9:10:00 [只看该作者]

 把此表移动到最左边,显示出来,然后,设置不允许移动表不就行了?

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


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
在允许用户移动表的前题下  发帖心情 Post By:2015/8/10 10:21:00 [只看该作者]

在允许用户移动表的前题下

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/10 10:30:00 [只看该作者]

 那没办法,只能如3楼的做法。

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


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2015/8/10 11:10:00 [只看该作者]

Dim t As  C1Command.C1DockingTab = BaseMainForm.Controls("MainPages")
Dim pg As C1Command.C1DockingTabPage = t.TabPages("表B")
If pg IsNot Nothing Then     t.TabPages.Insert(0,pg)

 回到顶部