主题：请教：主窗口与列窗口的冲突问题

Dim parent As object

If Forms("窗口1").opened Then

    parent  = Forms("窗口1").panel.parent

Else

    parent = Tables("表A").grid.parent

End If

For Each a As OBJECT In parent  .controls

    For Each b As OBJECT In a.controls '循环a的所有控件

        For Each c As object In b.controls '循环b的所有控件

            If c.text = "第十列"

                c.parent.CanAutoHide = not c.parent.CanAutoHide '隐显按钮

                Exit For

            End If

        Next

    Next

Next