主题：[分享]高效健康的录入方式

不知是不是这个意思：

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