Sera a tutti,
sto proprio impazzendo. Vi spiego il mio problema.
Ho un progetto in cui oltre a tutto il resto vi è una ListView che ho chiamato lstADD, questa si appoggia ad un DataBase Access tutto funziona alla perfezione fino a quando non faccio una ricerca.
Mi spiego meglio. Il DB Access e la ListView hanno come prima colonna il campo “Cognome” e come seconda il campo “Nome”. In fase di registrazione sul DB e sulla List tutto è OK.
Sul form ho un bottone che mi richiama un form in cui è presente un TextBox dove inserisco il *Cognome* per la ricerca. Bene. Inserisco un *Cognome* esistente nel DB ma non me lo trova, se invece inserisco un “Nome” (che riguarda la seconda colonna). Qualcuno sa dirmi dov’è l’errore?
Questo è il codice per la ricerca:
l'errore sta nel codice o da qualke altra parte?codice:Private Sub Command1_Click(Index As Integer) Select Case Index Case 1 Unload Me Case 0 If Len(Text1) = 0 Then MsgBox "Specificare un cognome valido.", vbCritical, "Errore" Exit Sub Else Dim sFound With frmGESTDB Set sFound = .lstADD.FindItem(Text1, lvwSubItem, , lvwPartial) If sFound Is Nothing Then MsgBox "Non è stata trovata alcuna voce come (" & Text1 & ")", vbCritical, "Errore" Exit Sub Else sFound.EnsureVisible sFound.Selected = True Unload Me .lstADD.SetFocus End If End With End If End Select End Sub
Grazie a tutti

Rispondi quotando
