以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [原创] 怎样自动顾虑空白列内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131494)

--  作者:cosogembird
--  发布时间:2019/2/27 20:23:00
--  [原创] 怎样自动顾虑空白列内容
filter 
滤出来的所有结果我想把它们的完全空白的列自动隐藏掉
请问大神如何实现
[此贴子已经被作者于2019/2/27 22:20:05编辑过]

--  作者:有点甜
--  发布时间:2019/2/27 20:28:00
--  

截图说明你的问题。说明要做到的效果。

 

或者上传具体实例测试。


--  作者:cosogembird
--  发布时间:2019/2/27 22:24:00
--  
比如说如图的结果 ,存在空白列, 如何在结果里面隐藏它们,不然大片空白看起来费劲
图片点击可在新窗口打开查看此主题相关图片如下:11.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2019/2/27 23:08:00
--  
Dim t As Table = Tables("表A")
For Each c As Col In t.Cols
    If t.FindRow(c.name & " is not null") < 0 Then
        c.visible = False
    Else
        c.visible = True
    End If
Next

--  作者:cosogembird
--  发布时间:2019/2/28 12:40:00
--  
谢谢甜甜大神  
完美解决