主题：设计下拉窗口

Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If
e.Form.DropDownBox.Select()

下拉框打开的时候，能够通过客户ID、公司名称、地址、联系人等模糊筛选，现在希望不仅能够按上面的条件模糊筛选，同时还要求只筛选出列为“显示”被勾选的行，不被勾选的不筛选。

请教怎么做？谢谢