如果通过代码左移表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如果通过代码左移表

共有2043人关注过本帖树形打印复制链接主题：如果通过代码左移表

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/24 9:06:00 [显示全部帖子]

Syscmd.Table.MoveLeft()	左移表
Syscmd.Table.MoveRight()	右移表

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/24 11:05:00 [显示全部帖子]

Dim tab = basemainform.controls("mainpages")
tab.TabPages.Insert(0,tab.Tabpages("表C")) '移动到第一个位置

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/24 15:01:00 [显示全部帖子]

Dim tab = basemainform.controls("mainpages")
Dim page = tab.Tabpages("表C")
Dim idx As Integer = 0
For i As Integer = 0 To tab.tabpages.count-1
    If tab.tabpages(i).name = page.name Then
        idx = i
        Exit For
    End If
Next
If idx >= 1 Then tab.TabPages.Insert(idx-1,page)

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/25 11:47:00 [显示全部帖子]

太奇葩的功能，和原先的功能有冲突，无法实现。

请说明你为什么要这样做

下一主题 >> << 上一主题

主题：如果通过代码左移表