Metoda pencarian kata dengan textbox di datagridview

Dalam suatu aplikasi, biasanya ada pencarian kata dalam daftar/list yang ditampilkan dalam suatu Grid. Misalnya pencarian Nama, Alamat, Nomor Invoice dsb. Dalam hal ini penulis akan membahas pencarian dimana user mengetikan kata dalam sebuah textbox, sementara kursor didatagrid akan mencari kata yang sama sesuai dengan kata dalam textbox. Baiklah kita asumsikan bahwa kita sudah mempunyai aplikasi dan data yang akan ditampilkan seperti gambar dibawah ini :




proses pencarian gambar diatas adalah pencarian Nomor Akun. ketika kita mengetikan Nomor Akun yang kita inginkan, kursor yang berwarna biru di dalam grid akan menunjukkannya. Listing Programnya adalah sebagai berikut :

 Private Sub txtFind_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFind.TextChanged
 
        Dim xloop1 As Integer
        Dim sPola As String
        Dim sbuka As String
        Dim SBetul As Boolean


        sPola = txtFind.Text + "*"


        For xloop1 = 1 To Gridme.RowCount - 1
            sbuka = Gridme.Rows(xloop1 - 1).Cells(0).Value
            SBetul = UCase(sbuka) Like UCase(sPola)

            If SBetul = True Then
                Gridme.CurrentCell = Gridme.Item(0, xloop1 - 1)
                Exit Sub
            End If
        Next
    End Sub

keterangan Listing Program :

    sPola = txtFind.Text + "*" : string yang akan dicari
    sbuka = Gridme.Rows(xloop1 - 1).Cells(0).Value : string pembanding dalam Grid dengan alamat cell = 0
    SBetul = UCase(sbuka) Like UCase(sPola) : Proses pembandingan kata yang dicari dengan pembanding

     If SBetul = True Then
           Gridme.CurrentCell = Gridme.Item(0, xloop1 - 1)
           Exit Sub
     End If
    : Jika sBetul = true, maka kursor akan diam row yang sama dengan kata yang dicari

hasilnya akan seperti ini,





demikian cara pencarian dengan menggunakan textbox. semoga bermanfaat.