运行如下代码时,也出现同样吗题?
Dim tb As Table = Tables("Client")
For Each a As Object In tb.Grid.Parent.controls
For Each a1 As Object In a.controls
If a1.text = "加载树" Then
'a1.CanCloseTabs = False '取消关闭按钮
a1.CanAutoHide = False '是否自动隐藏
'a1.ShowCaption = True '是否显示标题
a1.parent.Dock = 4
Return
End If
Next
Next