Effettuare una ricerca nelle celle di una GridView
Da Gambas-it.org - Wikipedia.
Versione del 6 ott 2019 alle 12:17 di Vuott (Discussione | contributi)
Per effettuare una ricerca se un testo sia presente all'interno di una cella della GridView, potremo utilizzare un algoritmo del genere:
Public Sub GridView1_GotFocus() Dim r, c As Integer Dim s As String s = InputBox("Immetti la parola da cercare:") ' Inizia il doppio ciclo per leggere tutte le celle della "GridView": For r = 0 To GridView1.Rows.Max For c = 0 To GridView1.Columns.Max ' In questo esempio se il testo presente nella corrente cella è identico) a quello immesso nell'InputBox per la ricerca... If GridView1[r, c].Text = s Then ' ...allora ci si posiziona nella corrente cella, la quale viene anche evidenziata...: With GridView1 .MoveTo(j, k) .ShowCursor = True End With ' ...e si esce quindi dal ciclo, perché abbiamo trovato la parola: Exit Endif Next Next End