主题：[求助]表格显示直接移至请1位或指定位置

    Dim I As Integer
    For I = 1 To 99   '循环左移至第1位
        Syscmd.Table.MoveLeft()
    Next

请问是否有其他更简单的方式，将显示的表格 直接 移到第1位 或 指定的位置

怕别人移动,就把允许调整表位置设置为Flase

' 我在【项目属性】的〖项目事件〗的〖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