主题：按钮命令如何写？

你组合套用的代码没有看出有任何问题。

我大胆做个推断，你的视图1已经包含了A列，所以当代码检测到A列为可见时，执行了打开视图1的命令，而实际上A列就在视图1中，自然就不能切换了。

最简单的方法是更改列视图名称，或将代码改成：

with CurrentTable
      if .Cols("A").Visible = True  Then
           .OpenView("视图2")
           e.Sender.Text = "视图2"
       Else       
           .OpenView("视图1")
           e.Sender.Text = "视图1"
       End If
End with