vb.net仿EXCEL的自动填充功能

 

Public Class AutoCompleteSearchClass AutoCompleteSearch
    '模糊记忆模块
    Public Sub AutoCompleteKeyUp()Sub AutoCompleteKeyUp(ByVal txt As TextBox, ByVal e As KeyEventArgs)
        Dim strTyped As String
        Dim strFoundText As String
        Dim strAppendText As String
        Dim dt As DataTable
        Dim db As New DataBase
        Dim dv As DataView
        dv = db.RunSelectSQL("select 编号,品名 from 物料清单 where 类型='部品'")
        dt = dv.Table
        db.Dispose()
        '如果DATATABLE是空的，则退出程序
        If dt.Rows.Count < 1 Then
            Exit Sub
        End If
        '忽略以下这些基本操作键
        Select Case e.KeyCode
            Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, _
                Keys.Delete, Keys.Down, Keys.CapsLock
                Return
        End Select
        '获取输入值，并转换为大写
        strTyped = txt.Text.ToUpper.Trim()
        '如果找到，则提取已录入和未录入部分
        For ii As Integer = 0 To dt.Rows.Count - 1  '注：表为所有编号内容，窗休导入时初始化
            If InStr(dt.Rows(ii)(0).ToString().Trim(), strTyped) > 0 Then
                strFoundText = dt.Rows(ii)(1).ToString().Trim()
                strAppendText = strFoundText.Substring(strTyped.Length)


                '判断查询出来的结果是否与将要显示出来的内容是否吻合
                If strTyped & strAppendText = strFoundText Then
                    txt.Text = strTyped & strAppendText
                    txt.SelectionStart = strTyped.Length
                    txt.SelectionLength = strAppendText.Length
                    Exit Sub
                End If
            End If
        Next

    End Sub
End Class

像EXCEL或ACCESS等在录入数据时有自动填充功能

以上例子,已在VS2005+SQL2000+WIN XP环境中调试通过,参考了网上某位大哥的例子