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

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

用GetPy

发文件上来！

 加一列 拼音列，然后在Datacolchanged事件写代码

 

If e.DataCol.Name = "第一列" Then
    If e.NewValue = Nothing Then
        e.DataRow("拼音") = Nothing
    Else
        e.DataRow("拼音") = GetPy(e.NewValue, True)
    End If
End If

在组合框已实现这个功能

在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属性