以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自动隐藏无数据列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173813)
--  作者：洮沙
--  发布时间：2021/12/17 12:40:00
--  [求助]自动隐藏无数据列
老师，你好！如何用代码实现打开表自动隐藏无数据列？谢谢！
--  作者：有点蓝
--  发布时间：2021/12/17 13:33:00
--  
比如
if tables("表A").compute("count(第一列)"，"第一列 is not null")  = 0 then
tables("表A").cols("第一列").visible = false
end if
--  作者：洮沙
--  发布时间：2021/12/17 14:07:00
--  

For Each c As Col In Tables("临时_税种核定统计").Cols
    If Tables("临时_税种核定统计").compute("count( " & c.Name & ")","" & c.Name & " Is not null")  = 0 Then
        Tables("临时_税种核定统计").cols("" & c.Name & "").visible = False
    End If
Next

 

老师，程序执行后隐藏了全部列，好像蓝字标示地方错误，不会改了，麻烦看一下！谢谢！

[此贴子已经被作者于2021/12/17 14:08:58编辑过]
--  作者：有点蓝
--  发布时间：2021/12/17 14:25:00
--  
代码没有问题。
--  作者：洮沙
--  发布时间：2021/12/17 14:27:00
--  

合适了，原来测试时已经隐藏了，应该先取消隐藏。

[此贴子已经被作者于2021/12/17 14:34:45编辑过]