- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 内部表问题请教？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133738)
-- 发布时间：2019/4/19 11:44:00
-- 内部表问题请教？
版主请指点：1、有窗口1，表A（A、B、C、D......共20列），窗口1中有表控件1，按钮（A、B、C......）；
2、能否实现通过点击按钮，表控件只显示表A的其中部分列，比如：点击按钮A，则在窗口1的表控件1中显示表A的A、C、D、E、F等5列？
3、这种是否就是临时表？
-- 发布时间：2019/4/19 12:20:00
--
你需要这个？
http://www.foxtable.com/webhelp/scr/1775.htm
-- 发布时间：2019/4/19 13:00:00
--
版主：我在窗口设置了一个按钮A，Click事件代码：Tables("表A").SetColVisibleWidth("列A|180|列B|150|列C|60|列G|60|列K|100|列M|100")，重启项目后，找开窗口，表A这时显示的是所有的列，点击按钮A，窗口显示是我所想要显示的列，如果我想要再回到表A所有的列都显示的状态应该怎么做？
比如：表A有20列，初始状态全部列都显示，点击按钮A显示A、B、C、E、K、L列；点击按钮B显示A、B、C、M、N、P列；如果我要回到初始全部列都显示，是不是还要加另一个按钮？
-- 发布时间：2019/4/19 14:52:00
--
以下是引用lisheng1971在2019/4/19 13:00:00的发言：
比如：表A有20列，初始状态全部列都显示，点击按钮A显示A、B、C、E、K、L列；点击按钮B显示A、B、C、M、N、P列；如果我要回到初始全部列都显示，是不是还要加另一个按钮？
是的，比如
For Each c As Col In Tables("表A").Cols
c.Visible = True
Next
-- 发布时间：2019/4/19 15:19:00
--
谢谢版主！基本上达到要求了，就是回到初始后，列的顺序有些乱，开始没有显示的列只是直接在显示的列后显示，连序号列都显示了，这个能解决吗？
比如：1、初始状态---A B C D E F G H I J K L M N O P Q R S T（共20列，表的序号是隐藏的）；
2、点击按钮A，显示---A B C E K L等列，再点击另一按钮B，显示---A B C D E F G H I J K L M N O P Q R S T；
3、现在是显示---序号 A B C E K L D E F G H I J M N O P Q R S T
[此贴子已经被作者于2019/4/19 15:53:19编辑过]
-- 发布时间：2019/4/19 15:58:00
--
afterLoad事件，写代码
vars("原始列") = Tables("表A").getColVisibleWidth
还原，写代码
Tables("表A").setColVisibleWidth(vars("原始列"))
-- 发布时间：2019/4/19 16:10:00
--
Tables("表A").setColVisibleWidth(vars("原始列"))
版主，我把还原按钮代码换成了上述代码，点击结果还是显示---序号 A B C E K L D E F G H I J M N O P Q R S T
我忘了要重启项目，现在好了，谢谢版主！
[此贴子已经被作者于2019/4/19 16:11:50编辑过]
-- 发布时间：2019/4/23 11:41:00
--
追加问题求助版主：1、表1有20列（A－T），其中E列为“是否合格”，为逻辑列；
2、菜单栏有一按钮A，Click事件代码为：Tables("表1").SetColVisibleWidth("A|100|B|100|C|50|D|50|E|50|F|50")
3、如果我想点击按钮A后，显示列不变（A－F），但只是合格的行（True）,这个代码要怎么写，直接在Click事件里加？
-- 发布时间：2019/4/23 11:47:00
--
呃，你不会筛选数据？
http://www.foxtable.com/webhelp/scr/0448.htm
-- 发布时间：2019/4/23 11:52:00
--
这个到是会，已搞定！谢谢版主！！！！！！