以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]表格显示直接移至请1位或指定位置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45484)
--  作者：9EQ98
--  发布时间：2014/1/27 10:51:00
--  [求助]表格显示直接移至请1位或指定位置
    Dim I As Integer
    For I = 1 To 99   \'循环左移至第1位
        Syscmd.Table.MoveLeft()
    Next

请问是否有其他更简单的方式，将显示的表格 直接 移到第1位 或 指定的位置
--  作者：Bin
--  发布时间：2014/1/27 10:55:00
--  
你直接设置maintable= tables("表名")即可.
--  作者：9EQ98
--  发布时间：2014/2/10 10:50:00
--  

maintable= tables("表名")

这样只是显示当前表，但没有在第一个位置
--  作者：Bin
--  发布时间：2014/2/10 10:53:00
--  
你人为放它到第一个位置不就好了,保存后以后都在第一了

怕别人移动,就把允许调整表位置设置为Flase
--  作者：9EQ98
--  发布时间：2014/2/13 8:49:00
--  
\' 我在【项目属性】的〖项目事件〗的〖MainTableChanged〗事件中加入以下“傻瓜”式代码实现了，供大家参考(选择不同的主表后执行）

If MainTable.Name = "SysTemp_GPS" Then   \'如果选择的主表是:系统导航(SysTemp_GPS)
    Dim I As Integer
    For I = 1 To 99   \'循环左移至第1位,如果显示的表超过99个，就加大数值
        Syscmd.Table.MoveLeft()
    Next
End If