下拉窗口筛选怎么写? 在textchanged写入以下代码,有时候会出现 关键字"f rom" 附近有语法错误
Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then '如果下拉窗口已经打开
Dim tbl As Table = Tables("客户下拉窗口_Table1")
If drp.Text = "" Then '如果内容为空
tbl.Filter = ""
Else '否则根据输入内容进行模糊筛选
Dim txt As String = "'%" & drp.Text & "%'"
DataTables("客户").loadFilter = "[性别] = '男'"
DataTables("客户").loadtop = ""
DataTables("客户").load
Tables("客户下拉窗口_Table1").Filter = "客户名称 Like " & txt & "Or 客户ID Like" & txt
End If
End If