主题：筛选 过滤问题

‘

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

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

 

此主题相关图片如下：qq图片20160311120038.png

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

 

If e.Table.Current Is Nothing Then return

明白了，前两天新增的虚拟关联出的问题。谢谢指点……