以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  批量设置表标题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119183)
--  作者：wtfwsk05
--  发布时间：2018/5/19 13:08:00
--  批量设置表标题
请问下怎么批量设置或修改表标题
--  作者：有点蓝
--  发布时间：2018/5/19 14:13:00
--  
只能在新建表时批量改，其它情况只能一个个改

如果是临时改，参考：http://www.foxtable.com/webhelp/scr/1275.htm
--  作者：wtfwsk05
--  发布时间：2018/5/19 19:40:00
--  
这个是设置表中的列标题,如何我系统中创建了15张表，表名称为A01至A15,如何通过代码实现表标题增加或更改
A01
A02
A03
A04
A05
A06
A07
A08
A09
A10
A11
A12
A13
A14
A15

--  作者：有点甜
--  发布时间：2018/5/20 21:55:00
--  

Dim tab = basemainform.controls("mainpages")
tab.tabpages("表A").Text = "123"
tab.tabpages("表B").Text = "456"
--  作者：wtfwsk05
--  发布时间：2018/5/22 14:40:00
--  

Dim tab = basemainform.controls("mainpages")
tab.tabpages("表A").Text = "123"
tab.tabpages("表B").Text = "456"

上述语句为了减少影响程序的加载效率，是添加到那个事件中比较好，为什么我在命令窗口运行上述代码，重起项目好，消失了所添加的表标题
--  作者：有点甜
--  发布时间：2018/5/22 16:05:00
--  
以下是引用wtfwsk05在2018/5/22 14:40:00的发言：

Dim tab = basemainform.controls("mainpages")
tab.tabpages("表A").Text = "123"
tab.tabpages("表B").Text = "456"

上述语句为了减少影响程序的加载效率，是添加到那个事件中比较好，为什么我在命令窗口运行上述代码，重起项目好，消失了所添加的表标题


 

写在AfterOpenProject事件。