DUPLICADOS LISTVIEW

RICKMC666 15/09/2006 15:43:00
#171723
Olá pessoal gostaria de saber, se tem como fazer uma verificação num listview, para que ele encontre na primeira coluna itens repitidos e marque com checkbox.

Obrigado!!!!
USUARIO.EXCLUIDOS 15/09/2006 16:01:33
#171729
Como seriam estes itens repetidos?
RICKMC666 15/09/2006 16:04:20
#171730
Seriam 6 numeros!!Mas é só do primeiro item que ele deve buscar!!!
CLEVERSON.F 15/09/2006 17:54:07
#171782
assim, crie um vertor, e a cada linha, vc procura se o item esta no vetor, se nao esta, adiciona, se esta, marca... simples.
RICKMC666 16/09/2006 11:26:16
#171835
Me passe um código simples para ter uma idéia!
USUARIO.EXCLUIDOS 16/09/2006 12:26:41
#171849 Resposta escolhida
Carinha, um exemplinho simples, neste caso procuro por itens repetidos e marco TODOS eles:

Dim i As Integer, j As Integer
With ListView1 'Aqui vc põe o nome do seu ListView
'Loop para ver todos itens
For i = 1 To .ListItems.Count
  'Desmarca o item
  .ListItems(i).Checked = False
  'Outro loop para ver todos itens
  For j = 1 To .ListItems.Count
    'Verifica se não é o mesmo item e se é igual
    If i <> j And .ListItems(j).Text = .ListItems(i).Text Then
      'Se for igual (é pq ele tem um igual), então marca
      .ListItems(i).Checked = True
      'Sai do Loop para ganhar mais agilidade
      Exit For
    End If
  Next j
Next i
End With


Qualquer dúvida poste...flw
RICKMC666 16/09/2006 16:27:58
#171880
Valeu cara dúvida Sanada!!!
Tópico encerrado , respostas não são mais permitidas
Voltar