主题：自动取消窗口表中空值列的隐藏

增加一个按钮，其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