如果之前没有加载数据的,这个筛选就不起作用的。动态加载可以这样
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
tbl.load
End If