已经实现：

设计目的：各类信息录入都是一个工作量比较大的事情，尽量增加录入的准确性，减少查找、选择的时间，一是增加了录入速度，二是让查找、选择的窗口尽量少打开，保护视力！

              在录入框(下拉组合框)中输入汉字或相应名称的拼音码，如果录入框中的值就等于相应的名称则下拉窗口不打开，录入框中的值就直接显示并录入成功；如果不相等则打开下拉窗口，执行模糊查找，选择相应的名称录入。

意义：1、提高录入速度；

         2、尽量减少下拉窗口打开次数，就可以减少屏幕的"闪烁“，保护视力！ 

操作：1、输入姓名（汉字）或相应名称的拼音码后按Enter键或者按 空格，有对应的名称则录入框中直接显示并完成这个录入框的录入；否则 打开下拉窗口进行查找。

         2、打开下拉窗口后，按向上键 或向下键 选择需要的行，按Enter确认输入；或者在需要的行上双击鼠标左键选择输入

 例子在下面：

 修正了19楼提出的BUG，并同时感谢19楼！！

1、新增在数据表内的录入方式。

2、操作方法作了修改，按照常规文字输入按“空格”键的习惯：在单元格内输入 汉字 或 拼音码→ 按 空格 →a、存在对应的名称，按回车确认。b、无对应的名称，则打开下拉窗口 按单元格内的内容进行模糊查找，按上、下键选择所需要的行→按回车 确认。录入完成！！

不知是不是这个意思：

If e.KeyCode = Keys.Enter Then
    Dim bln As Boolean
    For Each s As String In e.Sender.ComboList.Split("|")
        If s = e.Sender.Text Then
            bln = True
            Exit For
        End If
    Next
    If bln = False Then
        Dim str As String
        For Each s As String In e.Sender.ComboList.Split("|")
            If s Like "*" & e.Sender.Text & "*" Then
                str + = s & "|"
            End If
        Next
        If str > "" Then
            e.Sender.ComboList = str.Trim("|")
            e.Sender.OpenDropDown()
        Else
            e.Sender.Text = ""
            e.Cancel = True
        End If
    End If
End If

感谢各位老师的指导、指点，现在实现了我的设计目的，上个例子供大家参考。

设计目的：在下拉组合框中输入姓名或姓名的拼音码，如果找到对应的姓名，下拉组合框的值就等于相应的姓名（不打开下拉窗口），如果没有则打开下拉窗口，执行模糊查找。 

操作：1、输入姓名或拼音码或按空格键打开下拉窗口进行查找。

         2、打开下拉窗口后，按向上键 或向下键 选择需要的行，按Enter确认输入；或者在需要的行上双击鼠标左键选择输入

在一楼下载！