USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Pesquisa na ListView
Perci
MATÃO
SP - BRASIL
ENUNCIADA !
Postada em 30/04/2008 10:45 hs            
Olá, colegas. Estou tentando fazer uma pesquisa numa ListView.
No forlmulário, eu carrego uma ListView com os registros de vendas para os clientes  em ordem alfabética, assim:
 
Cod.  Nome do cliente        Data Venda     Vlr. Venda
-----------------------------------------------------
001   Marco Antonio Faria   13/04/2008     1.200,00
002   Rosana Afonso          11/04/2008        625,00
003   Wanderlei Matheus    12/04/2008         300,00
 
O que eu queria é o seguinte. Como são muitos registros das vendas dos clientes, para consultar um, eu tenho que percorrer toda a lista para encontrar e assim fica ruim, então eu fiz um pequeno form com uma TextBox onde eu digito o nome do cliente que eu quero pesquisar. Ao teclar Enter nessa TextBox eu quero que pesquise  pelo nome digitado e me mostre na ListView esse cliente pesquisado como o primeiro nome da lista. Será que é possível fazer isso?
 
Abraços e até mais.
 
   
Alexandre Patos
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 30/04/2008 11:54 hs            
' esse select traz todos os nomes com joao
'apos executar o select preencha o listview com o recordset que foi criado.
select nome from tabela where nome like 'JOAO%'
   
Danilo
não registrado
ENUNCIADA !
Postada em 30/04/2008 13:34 hs   
Colega,
 
Dá uma olhada no artigo abaixo, acho que responderá sua dúvida...
 
 
até mais.
   
Anderson
não registrado
Postada em 21/07/2009 20:48 hs   
Alguem sabe como buscar na segunda coluna neste codigo

Private Sub TxBusca_KeyPress(KeyAscii As Integer)
Dim itmFound  As ListItem
If KeyAscii = 13 Then
    Set itmFound = Lista.FindItem(TxBusca.Text, lvwText, , lvwPartial)
    If itmFound Is Nothing Then
        MsgBox "Sem Registro!"
        Exit Sub
    Else
        itmFound.EnsureVisible
        itmFound.Selected = True
        Lista.SetFocus
    End If
End If
End Sub
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página