AJUDA COM LISTVIEW

 Tópico anterior Próximo tópico Novo tópico

AJUDA COM LISTVIEW

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#473569 - 26/04/2017 09:54:45

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


Última edição em 26/04/2017 10:59:55 por KURTGU

Estou tentando recarregar uma lista, gostaria de no ter que limpar e adicionar os novos items gostaria somente de adicionar os que no esto na lista tentei da forma abaixo...mais ele esta repetindo a lista.

Processo que faco limpando a lista e adicionando novamente...

        
Listiview1.items.clear
        Dim servico As New THGSistemas.Service
        Dim lista() As THGSistemas.DadosPaciente = servico.ListarPacientesCadastrados([]UBS VARGEM GRANDE[])
        For Each i As THGSistemas.DadosPaciente In lista
            Dim li As New ListViewItem
            li = Me.ListView1.Items.Add(i.idpaciente.ToString, 0)
            li.SubItems.Add(i.nomepaciente)
            li.SubItems.Add(i.pacientecartaosus)
            li.SubItems.Add(i.pacientetel)
            li.SubItems.Add(i.unidadepaciente)
            li.SubItems.Add(i.unidadedestinopaciente)
        Next





Resposta escolhida #473572 - 26/04/2017 11:38:17

FFCOUTO
COM LEVY GASPARIAN
Cadast. em:Março/2005


Utilize a funo ContainsKey da propriedade Items para verificar a existncia do item. Veja:

If Not Me.ListView1.Items.ContainsKey(i.idpaciente.ToString) Then
   li = Me.ListView1.Items(i.idpaciente.ToString, i.idpaciente.ToString, 0)        []O primeiro parmetro a chave, o segundo o texto do item e o ltimo o ndice da imagem.
   []Outras propriedades
End If



Cursos de Excel e VB6:
cursoexcelvba.com.br


#473573 - 26/04/2017 12:56:45

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


Citação:
:
Utilize a funo ContainsKey da propriedade Items para verificar a existncia do item. Veja:

If Not Me.ListView1.Items.ContainsKey(i.idpaciente.ToString) Then
   li = Me.ListView1.Items(i.idpaciente.ToString, i.idpaciente.ToString, 0)        []O primeiro parmetro a chave, o segundo o texto do item e o ltimo o ndice da imagem.
   []Outras propriedades
End If



Era isto mesmo Obrigada...



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por KURTGU em 26/04/2017 12:57:00