关于textbox模糊匹配的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于textbox模糊匹配的问题

共有4063人关注过本帖树形打印复制链接主题：关于textbox模糊匹配的问题

weipeng6999

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：349 积分：3329 威望：0 精华：0 注册：2016/3/8 18:13:00

关于textbox模糊匹配的问题 发帖心情

Post By：2018/12/29 16:31:00 [只看该作者]

老师好！

我参考“自定义录入界面之一”后，想做一个在textbox中模糊写入“a”，就能自动填入“单位a”的功能。有几个问题不知道如何做，请请教：

1、在模糊写入“a”后，我想在窗口中就能弹出一个小窗口显示“单位a”,"单位ab",“单位abc”供鼠标选择填入

2、在模糊匹配副没有对应行后，弹出对话框“请更新”

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:模糊匹配.table

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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/12/29 16:41:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:模糊匹配.zip

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

weipeng6999

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：349 积分：3329 威望：0 精华：0 注册：2016/3/8 18:13:00

Post By：2018/12/29 16:54:00 [只看该作者]

谢谢老师，在ComboBox1中如果没有匹配的数据，怎样才能弹出提示框“请更新单位”

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/12/29 17:04:00 [只看该作者]

valuechanged事件，取输入的值到表格使用find查询，然后根据查询结果提示。

weipeng6999

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：349 积分：3329 威望：0 精华：0 注册：2016/3/8 18:13:00

Post By：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编辑过]

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

下一主题 >> << 上一主题

主题：关于textbox模糊匹配的问题