标题：[求助]用表标题导航，如何设置新打开表排到最后面

用表标题导航，新打开表的表标题次序似乎是乱的，如何设置新打开表标题排到之前打开的表标题最后面

参考代码

 

Dim tab = basemainform.controls("mainpages")
tab.TabPages.Insert(tab.tabpages.count-1,tab.Tabpages("表A")) '移动到第一个位置
MainTable = Tables("表a")

这样是可以，如果设置标题间距大于0，打开第一个表时，表标题前面会留出一大段空白

Dim tab = basemainform.controls("mainpages")
Dim count As Integer = 0
For Each g As object In DataTables
    If Tables(g.name).visible Then count+=1
Next
tab.TabPages.Insert(count-1,tab.Tabpages("表A")) '移动到第一个位置
MainTable = Tables("表a")

请问一下，以上代码写到哪个事件里？才合适。

谢谢！！！

afteropenproject

谢谢甜大师！！！

解决了表头排序问题；