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

我想实现点击表，表自动左移一个位置，怎样实现？

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

怎样指定需左移的表呢？

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

我只想左移一个，不是移到第一的位置，可以实现吗？

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)

我的代码是放在CurrentTableChanged事件中，希望是我选择一个表，该表左移一个位置，但按照上面的代码，我选择一个表，被选择的一个表就左移一位，但选中的表就变成另外一个表，我无法选择我想要的表

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

 

请说明你为什么要这样做

后台数据表太多，我想根据选择频率确定那个数据表靠前，方便查找

自己做一个窗口进行管理