主题：筛选树刷新按键

打开筛选树以后，执行下面代码隐藏按钮

For Each a As OBJECT In Tables("表A").grid.Parent.controls
    For Each b As OBJECT In a.controls
        If B.text = "筛选树" Then
            For Each c As object In b.controls(0).controls(0).controls
                c.visible = False
            Next
        End If
    Next
Next