Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Marcus.Bull

[Resolvido] ListView não mostra na linha correta

Recommended Posts

Bom dia a todos.

Sou novo no neste Forum

Adaptei essa ListView, só que não esta trazendo na linha correta, quando localizo um registro não altera, não exclui, e diz q não tem dados.

alguém pode me ajudar ?

atenciosamente,

Marcus Bull

Petrópolis/RJ

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá Marcus.Bull

1 - você esta usando o evento DblClick e o Click do objeto lsLista, porém sempre ira vigorar o evento Click, logo o DblClick nunca vai ser acionado. Não consegui achar uma solução prática pra isto.

2 - Quando você clicar no lsLista você quer que os dados sejam carregados nos txtBox (nome, nascimento... )?

Márcio

Compartilhar este post


Link para o post
Compartilhar em outros sites

Marcio, dei uma fuçada aqui com ajuda de um amigo e deu certo, só não respondi ante por que estava sem internet.

No preenchimento do cabeçalho, ao final do preenchimento, existe uma sequencia de comando para preenchimento do ListView. Isto estava gerando conflito com a rotina PreencherListView. Para não apagar o comando, acrescentei o comando Exit Sub, de forma que os comando de preenchimento não sejam executados;

Na rotina PreencherListView também houve algumas modificações;

a) A primeira foi a definição do valor da variável lastRow, onde se teve o comando substituído:

Antes

Código: Selecionar todos

lastRow = wsgest.Cells(wsgest.Cells.Rows.Count, "a").End(xlUp).Row

Depois

Código: Selecionar todos

lastRow = wsgest.UsedRange.Rows.Count

E Como eu precisava que fosse a partir da 4 linha foi necessário que as mesmas se iniciem na linha onde os registros serão iniciados. Observe os comandos abaixo:

Antes

Código: Selecionar todos

If lastRow >= 2 Then

For x = 2 To lastRow

Depois

Código: Selecionar todos

If lastRow > 5 Then

For x = 5 To lastRow

E Por último, nesta rotina, fiz a alteração do comando de decisão If, de forma que irá verificar linha a linha da planilha, quais células da coluna A estão em branco. Caso exista informação, a rotina preencherá o ListView:

Código: Selecionar todos

If wsgest.Cells(x, "a").Value <> "" Then

muito obrigado

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caso o autor necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×