专家坐堂-[求助]隐藏全部列和显示全部列的代码怎么写Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]隐藏全部列和显示全部列的代码怎么写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3473)

--  作者：tianhe95
--  发布时间：2009/7/7 19:22:00
--  [求助]隐藏全部列和显示全部列的代码怎么写
一个表有300多列，根据不同窗口页面显示不同列，一行一行写代码有点累，有没有简单一点的代码

--  作者：smileboy
--  发布时间：2009/7/7 20:32:00
--
隐藏：
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

--  作者：tianhe95
--  发布时间：2009/7/7 22:19:00
--

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

[此贴子已经被作者于2009-7-7 22:23:55编辑过]

--  作者：狐狸爸爸
--  发布时间：2009/7/7 22:42:00
--
CurrentTable.Redraw= False
For Each cl As Col In CurrentTable.Cols
    CurrentTable.Cols(cl.name).Visible = True
Next
CurrentTable.Redraw= True

--  作者：shaof
--  发布时间：2009/7/7 23:12:00
--
做两个视图多好。