主题：筛选已经隐藏的列

Dim s As String

For i As Integer = Tables("名片夹").Rows.Count - 1 To 0 Step - 1

    For j As Integer = 0 To Tables("名片夹").Cols.Count - 1

If Tables("名片夹").Cols(j).Name = "隐藏否" Then

        'If Tables("客户订单表").Cols(j).Name = "订单确认_签收否"  Then

            s + = Tables("名片夹").Text(i,j) & ","

        End If

    Next

    If s > "" Then

        If s.Trim(",") = "True" Then

            Tables("名片夹").Rows(i).DataRow.Remove()

        End If

    End If

    s = ""

Next

Dim Filter As String

With e.Form.Controls("TextBox9")

    If .Value IsNot Nothing Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "基本信息_在职企业号 = '" & .Value & "'"   '此处内容自行修改

    End If

End With

If Filter > "" Then

    Tables("企业档案窗口_Table2").Filter = Filter

End If