主题：[求助]加载树

mark 控制加载树

For Each a As OBJECT In Tables("表A").grid.Parent.controls
    For Each b As OBJECT In a.controls
        msgbox(b.text)
        If B.text = "加载树" Then
            b.CanCloseTabs = False
            b.CanAutoHide = False
        End If
    Next
Next
UnLockBaseMainForm  '解锁