‘

Dim xm As RibbonMenu.TextBox = RibbonTabs("日常工作").Groups("日常工作").Items("姓名")

Dim wxm As String = xm.Text

Dim zc As RibbonMenu.TextBox = RibbonTabs("日常工作").Groups("日常工作").Items("职称")

Dim wzc As String= zc.Text

Dim jb As RibbonMenu.TextBox = RibbonTabs("日常工作").Groups("日常工作").Items("级别")

Dim wjb As String= jb.Text

Dim Filter As String

With wxm

    If wxm > "" Then

        wxm = "\'%" & wxm & "%\'"

        Filter = "姓名 like" & wxm & ""

    End If

End With

With wzc

    If wzc > ""  Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If

        wzc = "\'%" & wzc & "%\'"

        Filter = Filter & "现任技术职务名称 like " & wzc & ""

    End If

End With

With wjb

    If wjb > "" Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        wjb = "\'%" & wjb & "%\'"

        Filter = Filter & "级别 like " & wjb & ""

    End If

End With

If Filter > "" Then

    Tables("员工花名册").Filter = Filter

Else

    Tables("员工花名册").Filter = ""    

End If

这是我做的筛选，正常情况是没问题，但是，当输入的值查找不到的时候，就会出错。

表事件那里，currentChanged事件，加入判断

If e.Table.Current Is Nothing Then return