Buscar en un ListView
Publicado por jose (1 intervención) el 20/04/2004 22:18:31
como hago para buscar en la 2º ó 3º columna de un listview??
tengo este código y funciona muy bien con la primera columna del listview pero no con la 3º que es donde tengo los apellidos de las personas (está copiado de la ayuda, donde no encontré como solucionar mi problema):
Dim intSelectedOption As Integer
Dim strFindMe As String
strFindMe = Trim(UCase(Me.T_Ape.Text)) 'InputBox("Buscar en lvmText")
intSelectedOption = lvwSubItem
Dim itmFound As ListItem ' Variable FoundItem.
Set itmFound = Me.LSocios.FindItem(strFindMe, intSelectedOption, , lvwPartial)
If itmFound Is Nothing Then
MsgBox "No se ha encontrado ninguna coincidencia"
Exit Sub
Else
itmFound.EnsureVisible
itmFound.Selected = True
boton.SetFocus
End If
espero que le sirva este código.
gracias a tod@s
tengo este código y funciona muy bien con la primera columna del listview pero no con la 3º que es donde tengo los apellidos de las personas (está copiado de la ayuda, donde no encontré como solucionar mi problema):
Dim intSelectedOption As Integer
Dim strFindMe As String
strFindMe = Trim(UCase(Me.T_Ape.Text)) 'InputBox("Buscar en lvmText")
intSelectedOption = lvwSubItem
Dim itmFound As ListItem ' Variable FoundItem.
Set itmFound = Me.LSocios.FindItem(strFindMe, intSelectedOption, , lvwPartial)
If itmFound Is Nothing Then
MsgBox "No se ha encontrado ninguna coincidencia"
Exit Sub
Else
itmFound.EnsureVisible
itmFound.Selected = True
boton.SetFocus
End If
espero que le sirva este código.
gracias a tod@s
Valora esta pregunta
0