- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如果将表固定在最左边 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72924)
-- 发布时间：2015/8/8 18:57:00
-- 如果将表固定在最左边
请问，如果将一个指定的表，固定在最左边的位置。
例如：系统导航表，永远在第一个表的位置。
此主题相关图片如下：3$4yzwy$}yw%y@{9w6g}en.png
而不会出现这样的现象
此主题相关图片如下：t2n`cd`8k`i13qpseyjlk%c.png
-- 发布时间：2015/8/8 20:13:00
--
项目属性-不允许移动表
-- 发布时间：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
以上方式虽然解决问题，但显示和反应的速度很慢，要等上几秒钟。请问有更好的办法吗？
-- 发布时间：2015/8/10 9:10:00
--
把此表移动到最左边，显示出来，然后，设置不允许移动表不就行了？
-- 发布时间：2015/8/10 10:21:00
-- 在允许用户移动表的前题下
在允许用户移动表的前题下
-- 发布时间：2015/8/10 10:30:00
--
那没办法，只能如3楼的做法。
-- 发布时间：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)