专家坐堂-AfterOpenProject中如何遍历所有关联表Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  AfterOpenProject中如何遍历所有关联表  (http://foxtable.net/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