Dim drp As WinForm.DropDownBox = e.sender Dim tbl As Table = Tables("表A") If drp.Text = "" Then '如果内容为空 tbl.Filter = "" '显示所有客户 Else '否则根据输入内容进行模糊筛选 Dim txt As String = "'*" & drp.Text & "*'" txt= txt.replace("[","[[]").replace("]","[]]") tbl.Filter = "第一列 Like " & txt End If