主题：[求助]隐藏全部列和显示全部列的代码怎么写

一个表有300多列，根据不同窗口页面显示不同列，一行一行写代码有点累，有没有简单一点的代码

隐藏：
For Each cl As Col In CurrentTable.Cols
    CurrentTable.Cols(cl.name).Visible = False
Next

显示：
For Each cl As Col In CurrentTable.Cols
    CurrentTable.Cols(cl.name).Visible = True
Next

谢谢，不过速度有点慢，有一个停顿，不像隐藏和显示行那样瞬间完成，但基本满足要求，还是要谢谢

CurrentTable.Redraw= False
For Each cl As Col In CurrentTable.Cols
    CurrentTable.Cols(cl.name).Visible = True
Next
CurrentTable.Redraw= True

做两个视图多好。