加载树自动隐藏问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

怎样用代码控制自加载树自动隐藏。

1.下面这段代码好次有问题，运行后版面会破坏，加载树原来在左边停靠的，运行会跑到右边，变成灰色图片点击可在新窗口打开查看

。

2. 还有这些代码帮助没有说明，在那里有这方面资料。

Dim tb As Table = Tables("表A")

For Each a As OBJECT In tb.Grid.Parent.controls

For Each a1 As OBJECT In a.controls

If a1.text = "加载树"

a1.CanCloseTabs = False '取消关闭按钮

a1.CanAutoHide = False '是否自动隐藏

'a1.ShowCaption = True '是否显示标题

a1.parent.Dock = 4

Return

End If

主题：加载树自动隐藏问题