主题：自动隐藏的扩展列随单元格自动显示

比如，弹出第十列的列窗口

For Each a As OBJECT In Tables("表A").grid.Parent.controls
    For Each b As OBJECT In a.controls
        If B.text = "第十列" Then
            b.AutoHiding = False
        End If
    Next
Next

 Click事件，写代码

For Each a As OBJECT In e.Table.grid.Parent.controls
    For Each b As OBJECT In a.controls
        If e.Table.Cols.Contains(b.text) Then
            If B.text = e.Col.name Then
                b.AutoHiding = False
            Else
                b.AutoHiding = True
            End If
        End If
    Next
Next

首先，你要把列窗口打开，其次，你要把表切换到对应的表上。

如果有问题，请单独做个实例上传上来，说明操作步骤。