Foxtable(狐表)用户栏目专家坐堂 → [求助]跪求只要输入首拼就能模糊查找列表项目的参考代码


  共有3361人关注过本帖树形打印复制链接

主题:[求助]跪求只要输入首拼就能模糊查找列表项目的参考代码

帅哥哟,离线,有人找我吗?
lyydwh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:54 积分:595 威望:0 精华:0 注册:2014/3/12 15:10:00
[求助]跪求只要输入首拼就能模糊查找列表项目的参考代码  发帖心情 Post By:2015/5/11 20:45:00 [显示全部帖子]

比如在公司列有几千个公司名称,我要查找“龙岩市奔月电脑公司”这个公司,只要在列表项目输入“BYDN“就能模糊查找把相应的列表项目找出来,这样输入就方便多了

 回到顶部
帅哥哟,离线,有人找我吗?
lyydwh
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:54 积分:595 威望:0 精华:0 注册:2014/3/12 15:10:00
  发帖心情 Post By:2015/5/11 22:29:00 [显示全部帖子]

在组合框已实现这个功能

在ComboBox的KeyPress事件加入如下代码即可(输入简拼按空格后打开下拉列表就只列出和简拼相关的公司)

If Char.IsPunctuation(e.KeyChar) OrElse Char.IsSymbol(e.KeyChar) Then
    e.Cancel = True
ElseIf Char.IsLower(e.KeyChar) Then
    e.Cancel = True
    e.Sender.SelectedText = e.KeyChar.ToUpper
ElseIf e.KeyChar=" "
    e.Cancel=True
    e.Sender.DataFilter=Cexp("公司简拼 like  '*{0}*'" ,e.Sender.Text)
    e.Sender.OpenDropDown()
End If

 

但在表格中不知道在哪设置列表项目的DataFilter属性

[此贴子已经被作者于2015/5/11 22:32:44编辑过]

 回到顶部