以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动取消窗口表中空值列的隐藏  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97034)
--  作者：wyz20130512
--  发布时间：2017/3/4 20:35:00
--  
增加一个按钮，其Click事件代码：

\'窗口表中空值列的隐藏
With Tables("代理招标信息_Table1")
    For Each c1 As Col In .Cols
        c1.Visible = True
    Next
    For Each c2 As Col In .Cols
        Dim p As Integer = .FindRow(c2.Name & " Is Not Null")
        If P = -1 Then
            c2.Visible = False
        End If
    Next
End With
--  作者：wyz20130512
--  发布时间：2017/3/5 0:13:00
--  
将代码放入相应的事件中即可。