Gambas-it

Gambas3 => Programmazione => Topic aperto da: Gianluigi - 25 Luglio 2016, 17:03:09

Titolo: [Risolto] ListView ricerca dati non funziona
Inserito da: Gianluigi - 25 Luglio 2016, 17:03:09

Probabilmente è il caldo, ma io non riesco proprio a capire perché il codice allegato non funziona.
Dovrebbe trovare il primo dato se c'è, selezionandolo, anche se inserisco solo una lettera.
Ci sto sbattendo la testa da ore  :rolleyes:
Help!

 :ciao:

Titolo: Re:ListView ricerca dati non funziona
Inserito da: vuott - 25 Luglio 2016, 17:36:56

Imponendo nel controllo condizionale dopo la parola chiave ELSE la riga di comando:
 

Codice: [Seleziona]

ButtonBox1.Text = "Not found"

causi il cambio della stringa da cercare all'interno dell'oggetto ButtonBox1, se la stringa medesima non è la prima della lista.
Ciò vuol dire che la stringa da cercare diventa inevitabilmente "Not found", inesistente nella lista.

Titolo: Re:ListView ricerca dati non funziona
Inserito da: Gianluigi - 25 Luglio 2016, 17:47:28

Citazione da: vuott - 25 Luglio 2016, 17:36:56

Imponendo nel controllo condizionale dopo la parola chiave ELSE la riga di comando:
 

Codice: [Seleziona]

ButtonBox1.Text = "Not found"

causi il cambio della stringa da cercare all'interno dell'oggetto ButtonBox1, se la stringa medesima non è la prima della lista.
Ciò vuol dire che la stringa da cercare diventa inevitabilmente "Not found", inesistente nella lista.

Ecco perché all'inizio (quando non avevo ancora inserito Else) funzionava!
Vuott sei proprio un grande, grazie mi hai risparmiato un mal di testa maggiore  :D :D

  :ciao:

Titolo: Re:ListView ricerca dati non funziona
Inserito da: Gianluigi - 25 Luglio 2016, 20:21:35

Giusto per completezza ho cambiato la routine così:

Codice: [Seleziona]

Public Sub ButtonBox1_Click()
  
  Dim i As Integer  
  
  For i = 0 To $sList.Max
    If $sList[i] Like ButtonBox1.Text & "*" Then      
      ListView1[$sList[i]].Selected = True      
      Return    
    Endif
  Next
  Balloon.Delay = 1500
  Balloon.Info("Text not found", ButtonBox1)
 
End

:ciao: :ciao: