以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  AfterOpenProject中如何遍历所有关联表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110781)
--  作者：tubairabbit
--  发布时间：2017/12/9 12:26:00
--  AfterOpenProject中如何遍历所有关联表
AfterOpenProject中如何遍历所有关联表?

为了实现所有关联表子表的列宽按照其主表进行自动设置。

目前在CurrentTableChanged中可实现。
If CurrentTable.IsRelation Then
 CurrentTable.SetColVisibleWidth(Tables(CurrentTable.DataTable.name).GetColVisibleWidth())
end if

但这个方法是每次打开表时都要进行一次判断和调整，觉得应该在AfterOpenProject一次搞定效率更高。
不知AfterOpenProject中如何遍历所有关联表?
--  作者：有点蓝
--  发布时间：2017/12/9 14:18:00
--  
for each t as table in tables
if t.name.contains(".") then
msgbox("我是关联表")
end if
next