以文本方式查看主题

-  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)

--  作者:weipeng6999
--  发布时间:2018/12/29 16:31:00
--  关于textbox模糊匹配的问题
老师好!
我参考“自定义录入界面之一后,想做一个在textbox中模糊写入“a”,就能自动填入“单位a”的功能。有几个问题不知道如何做,请请教:
1、在模糊写入“a”后,我想在窗口中就能弹出一个小窗口显示“单位a”,"单位ab",“单位abc”供鼠标选择填入
2、在模糊匹配副没有对应行后,弹出对话框“请更新”

3、我现在做的实例中,表A随着Filter也进行了筛选,请问如何避免,我好像用临时表也不行。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:模糊匹配.table


[此贴子已经被作者于2018/12/29 16:35:30编辑过]

--  作者:有点蓝
--  发布时间:2018/12/29 16:41:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:模糊匹配.zip


如果有更复杂的查询应用,建议使用自定义下拉窗口:http://www.foxtable.com/webhelp/scr/2466.htm

--  作者:weipeng6999
--  发布时间:2018/12/29 16:54:00
--  
谢谢老师,在ComboBox1中如果没有匹配的数据,怎样才能弹出提示框“请更新单位”
--  作者:有点蓝
--  发布时间:2018/12/29 17:04:00
--  
valuechanged事件,取输入的值到表格使用find查询,然后根据查询结果提示。
--  作者:weipeng6999
--  发布时间: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