- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于textbox模糊匹配的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129494)
-- 发布时间：2018/12/29 16:31:00
-- 关于textbox模糊匹配的问题
老师好！
我参考“自定义录入界面之一”后，想做一个在textbox中模糊写入“a”，就能自动填入“单位a”的功能。有几个问题不知道如何做，请请教：
1、在模糊写入“a”后，我想在窗口中就能弹出一个小窗口显示“单位a”,"单位ab",“单位abc”供鼠标选择填入
2、在模糊匹配副没有对应行后，弹出对话框“请更新”
3、我现在做的实例中，表A随着Filter也进行了筛选，请问如何避免，我好像用临时表也不行。
[此贴子已经被作者于2018/12/29 16:35:30编辑过]
-- 发布时间：2018/12/29 16:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:模糊匹配.zip |
如果有更复杂的查询应用，建议使用自定义下拉窗口：http://www.foxtable.com/webhelp/scr/2466.htm
-- 发布时间：2018/12/29 16:54:00
--
谢谢老师，在ComboBox1中如果没有匹配的数据，怎样才能弹出提示框“请更新单位”
-- 发布时间：2018/12/29 17:04:00
--
valuechanged事件，取输入的值到表格使用find查询，然后根据查询结果提示。
-- 发布时间：2019/1/2 10:52:00
--
老师，我做了以下判断后，不管有没找到单位的值，按ctrl+enter模糊查询都会先弹出MessageBox.Show("请完善信息")，请教问题出在哪里？
Dim str As String = e.Form.Controls("ComboBox1").Value
Dim dr As DataRow = DataTables("表A").Find("[单位] = \'" & str & "\' ")
If dr Is Nothing Then
MessageBox.Show("请完善信息")
End If
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:模糊匹配.zip |
[此贴子已经被作者于2019/1/2 11:08:26编辑过]
-- 发布时间：2019/1/2 12:27:00
--
Dim str As String = e.Form.Controls("ComboBox1").Value
Dim dr As DataRow = DataTables("表A").Find("[单位] like \'%" & str & "%\' ")
If dr Is Nothing Then
MessageBox.Show("请完善信息")
End If