以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]用表标题导航，如何设置新打开表排到最后面  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121793)
--  作者：liuqide
--  发布时间：2018/7/13 9:08:00
--  [求助]用表标题导航，如何设置新打开表排到最后面
用表标题导航，新打开表的表标题次序似乎是乱的，如何设置新打开表标题排到之前打开的表标题最后面
--  作者：有点甜
--  发布时间：2018/7/13 9:19:00
--  

参考代码

 

Dim tab = basemainform.controls("mainpages")
tab.TabPages.Insert(tab.tabpages.count-1,tab.Tabpages("表A")) \'移动到第一个位置
MainTable = Tables("表a")
--  作者：liuqide
--  发布时间：2018/7/13 10:08:00
--  
这样是可以，如果设置标题间距大于0，打开第一个表时，表标题前面会留出一大段空白
--  作者：有点甜
--  发布时间：2018/7/13 10:34:00
--  
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")
--  作者：rightinfo2014
--  发布时间：2019/1/5 17:23:00
--  

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

谢谢！！！
--  作者：有点蓝
--  发布时间：2019/1/5 17:35:00
--  
afteropenproject
--  作者：rightinfo2014
--  发布时间：2019/1/8 8:20:00
--  

谢谢甜大师！！！
--  作者：流水
--  发布时间：2023/10/17 15:37:00
--  
解决了表头排序问题；
全局代码里加了一个 数字变量，显示表头是+1，隐藏表头时-1，表头位置根据 变量 调整；