AJUDA COM LISTVIEW

KURTGU 26/04/2017 09:54:45
#473569
Estou tentando recarregar uma lista, gostaria de não ter que limpar e adicionar os novos items gostaria somente de adicionar os que não estão 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
FFCOUTO 26/04/2017 11:38:17
#473572 Resposta escolhida
Utilize a função ContainsKey da propriedade Items para verificar a existência 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 parâmetro é a chave, o segundo o texto do item e o último o índice da imagem.
   [ô]Outras propriedades
End If
KURTGU 26/04/2017 12:56:45
#473573
Citação:

:
Utilize a função ContainsKey da propriedade Items para verificar a existência 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 parâmetro é 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 encerrado , respostas não são mais permitidas
Voltar