Dim drp As WinForm.DropDownBox = e.sender If drp.DroppedDown Then '如果下拉窗口已经打开 Dim tbl As DataTable = Tables("纳税人明细_Table1").datatable If drp.Text = "" Then '如果内容为空 tbl.loadFilter = "" '显示所有客户 Else '否则根据输入内容进行模糊筛选 Dim txt As String = "'%" & drp.Text & "%'" tbl.loadFilter = "纳税人识号 Like " & txt End If