主题：[求助] 关于模糊查询

老师，如图点击这个下拉键后可以实时更新下拉窗口中的数据表，以下代码要如何扩展 ？ 放哪儿才能生效？ 谢谢了。

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Se lect * From {t_ICItemCore}"
rdt = cmd.ExecuteReader()
此主题相关图片如下：捕获.png

老师，请帮忙修指点一下错哪儿了，不能实时更新，谢谢。

Dim cmb As New SQLCommand
cmb.C
cmb.CommandText = "Se lect * From {t_Supplier}"
rdb = cmb.ExecuteReader()

Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口3_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "FName Like " & txt & " Or FShortName Like " & txt
End If

e.Form.DropDownBox.Select()