- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教取消隐藏列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80778)
-- 发布时间：2016/2/1 11:48:00
-- 请教取消隐藏列
大师：请教如何按一下添加按钮，就取消3列隐藏？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目64.zip |
-- 发布时间：2016/2/1 12:17:00
--
Tables("表A").SetColVisibleWidth("第一列|98|第二列|98|第三列|98|第四列|98|第五列|98|第六列|98|第七列|98|第八列|98|第九列|98|第十列|98")
-- 发布时间：2016/2/1 12:29:00
--
我说的是按一下取消3列，再按一下在取消3列？也就是说条件显示与隐藏。
如果有的行记录少，就不隐藏，如果行记录多就隐藏一些列。按钮可添加显示指定列数？
-- 发布时间：2016/2/1 12:35:00
--
Dim count As Integer = 3
Dim i As Integer = 1
For Each c As Col In Tables("表A").cols
If c.visible Then
c.visible = False
i += 1
End If
If i > count Then Exit For
Next
-- 发布时间：2016/2/1 12:57:00
--
谢谢！