DUVIDA COM O LISTVIEW
oLà  AMIGOs, TO QUERENDO FAZER UMA BUSCA EM UM LISTVIEW E NÃO CONSIGO COLOQUEI O CODIGO NO EVENTO DE UM BOTÃO MAS NÃO FUNCIONOU. O QUE FAÇO MEU LISTVIEW TEM VARIAS COLUNAS
O CODIGO é ESSE ABAIXO:
Private Sub cmdOk_Click()
If Len(txtPesquisa.Text) > 0 Then
Set Item = lvFuncionario.FindItem(txtPesquisa.Text, lvwSubItem, , lvwPartial)
Else
Set Item = lvFuncionario.FindItem(txtPesquisa.Text, lvwSubItem, , lvwPartial)
End If
lvFuncionario.SetFocus
If Item Is Nothing Then
Else
Item.EnsureVisible
Item.Selected = True
End If
End Sub
O CODIGO é ESSE ABAIXO:
Private Sub cmdOk_Click()
If Len(txtPesquisa.Text) > 0 Then
Set Item = lvFuncionario.FindItem(txtPesquisa.Text, lvwSubItem, , lvwPartial)
Else
Set Item = lvFuncionario.FindItem(txtPesquisa.Text, lvwSubItem, , lvwPartial)
End If
lvFuncionario.SetFocus
If Item Is Nothing Then
Else
Item.EnsureVisible
Item.Selected = True
End If
End Sub
Nesse caso, creio que você terá que varrer todo seu list verificando o valor contido em cada coluna utilzando INSTR
tente algo parecido:
Espero ter ajudado
tente algo parecido:
For x=0 to ListView1.Listcount
if instr(1, ListView1.ListItems.Item(x).Text, ValorProcurado) > 0 then
msgbox "Achou!"
x= ListView1.Listcount
endif
Next
Espero ter ajudado
Com o próprio InStr você consegue isso
Tópico encerrado , respostas não são mais permitidas