参考
Dim tab = basemainform.controls("MainPages")For Each p As object In tab.tabpages output.show(p.text) For Each c As Col In Tables(p.name).cols output.show(c.caption) NextNext