Mencari Data Pada datagridview Tanpa Akses Database

Sumber : PerpustakaanVB

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,