LIST VIEW

NINEBETO 21/08/2009 20:10:24
#320628
Olá Pesoal

Estou necessitando de uma grande ajuda. Eu desenvolvi um sistema de cadastro de clientes e agora eu quero
colocar os dados e respectivos campos dentro de um LIST VIEW.

Quando eu clicar no meu cadastro de clientes o cliente selecionado apareça também listado dentro do LIST VIEW.


Alguém que já esteja familiarizado com este recurso pode me ajudar????????????



Agradeço muito quem puder me ajudar/

abraços para esta grande comunidade.

ROBERTO
TECLA 21/08/2009 20:19:30
#320630
Poste os detalhes do projeto para que o pessoal possa ajudá-lo (Conexão com o BD, Trechos de códigos, Controle vinculado ou objeto de acesso à dados etc).
ASHKATCHUP 21/08/2009 20:19:34
#320631 Resposta escolhida
Boa noite, Ninebeto.

Preciso que especifique melhor:
-Você quer que apareça o que no listview? Apenas selecione o mesmo cliente?
ASHKATCHUP 21/08/2009 20:29:36
#320632
Se você quiser procurar o cliente no Listview, eu fiz um código e estou anexando ele.
NINEBETO 22/08/2009 11:50:18
#320668
Citação:

TECLA escreveu:
Poste os detalhes do projeto para que o pessoal possa ajudá-lo (Conexão com o BD, Trechos de códigos, Controle vinculado ou objeto de acesso à dados etc).



TECLA DE AGRADEÇO MUITO PELA FORÇA, PORéM CONSEGUI RESOLVER O MEU PROBLEMA COM A SUGESTÃO DO ASHKATCHUP QUE ME POSTOU UM EXEMPLO QUE ESCLARECEU MINHAS DÚVIDAS.

MESMO ASSIM VALEU.

ABRACOS
ASHKATCHUP 22/08/2009 13:00:41
#320671
Ninebeto, se a dúvida foi esclarecida, por favor, feche o tópico.
NIKYTS 23/08/2009 09:43:43
#320711
NINIBETO, já deves ter a solução para a tua dúvida,...mas repara só, se quiseres podes efectuar um tipo de pesquisa + rápido no listview através do Keypress, é o que costumo utilizar:

Private Sub Text_Pesquisa_Change()
    If Rs.State = 1 Then Rs.Close
    Rs.Open [Ô]select * from Tabela where Campo_Pretendido like [ô][Ô] & Text_Pesquisa.Text & [Ô]%[ô] order by Campo_Pretendido Asc[Ô], Cnn
    Preenche_Lista
End Sub


(...)


Public Sub Preenche_Lista()
    [ô]Carregar a listagem com os dados da Base de Dados
    Dim Lista As ListItem
    Dim i as Integer
    ListView1.ListItems.Clear
    If Rs.RecordCount = 0 Then Exit Sub
    While Not Rs.EOF
        Set Lista = ListView1.ListItems.Add(, , Rs(0), 1, 1)[ô]Adicionar dados com icon caso seja a situação
        For i = 1 To 8
            Lista.SubItems(i) = Rs(i)
        Next i
        Rs.MoveNext
    Wend
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar