For Each c As col In Tables("表A").cols Dim filter As String = c.name & " Is not Null" If Tables("表A").Filter > "" Then filter = filter & " And " & Tables("表A").Filter End If If DataTables("表A").Find( filter) IsNot Nothing Then c.Visible = True Else c.Visible = False End If Next