LISTVIEW - COMANDO FINDITEM

USUARIO.EXCLUIDOS 11/01/2005 16:33:10
#60070
Prezados :

Estou utilizando o comando finditem do Listview

Set tItem = ListView1.FindItem(TxtCodigo.Text, 0, 1)

If Not tItem Is Nothing Then
If tItem.ListSubItems(1).ForeColor = 16711680 Then
'faça alguma coisa
endif

endif

Se o meu Listview tem os códigos 110,112,113,113,114,115) e eu estiver procurando o nº 113, ele irá encontrar apenas o primeiro 113.
Alguém tem alguma sugestão p/ qdo eu buscar o nº 113, analisar todos os registros do Listview que tem este nº ?
THIAGO.CESAR 11/01/2005 17:34:56
#60098
Ao invés de usar o FindItem varra todo o listView fazendo comparação:

For i = 1 to ListView1.ListItems.Count
     If ListView1.ListItems(i).text = txtCodigo.Text then ListView1.ListItems(i).Forecolor = 16711680
Next
THIAGO.CESAR 11/01/2005 17:39:47
#60102
Ou melhor 
For i = 1 to ListView1.ListItems.Count 
     If ListView1.ListItems(i).text = txtCodigo.Text and ListView1.ListItems(i).Forecolor = 16711680  then
       'Faça alguma coisa
End If
Next


Acho que é isso mesmo...
FABIO.ALEXANDRE 11/01/2005 22:08:36
#60153
Pelo q entendi vc deve carregar o listview de uma tabela entaum em fez de vc usar um for no list acho q seria melhor vc dispara a consulta na sua tabela e limpar o list carrega-lo de novo

espero ter ajudado
Tópico encerrado , respostas não são mais permitidas
Voltar