主题：空值列隐藏

 所有控制列隐藏，求代码？

For Each dr As Col In Tables("学生基本信息_Table2").Cols
        If dr IsNot Nothing Then
            dr.Visible = True
        Else
            dr.Visible = False
        End If
    Next