USAR UM FOR PARA COMPARAR DUAS LISTIVEW

KURTGU 22/07/2015 15:25:40
#449138
Tenho 2 listview com duas colunas = To tentando montar um for que passa pela listview1 olhando na listview2 se estiver nas duas então adicionar no subitem da 1 No item que esta nas duas a Palavra sim...já fiz de tudo e ele não localiza...to procurando no google algo a respeito se alguém já fez isso e puder me ajudar...
KURTGU 22/07/2015 16:15:43
#449139
Tentei dessa forma..

For i = 0 To ListView1.Items.Count - 1
For i2 = 0 To ListView2.Items.Count - 1
If ListView1.Items(i).Text = ListView2.Items(i2).Text Then
ListView1.Items(i).SubItems(2).Text = [Ô]SIM[Ô]
Else
ListView1.Items(i).SubItems(2).Text = [Ô]NÃO[Ô]
End If
Next
Next
NICKOSOFT 22/07/2015 16:41:59
#449141 Resposta escolhida 
  
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListView1.Clear()
        ListView1.Columns.Add([Ô]Valor[Ô])
        ListView1.Columns.Add([Ô]Repetido[Ô])
        For index = 0 To 15
            Dim ls As New ListViewItem(index.ToString, 0)
            ListView1.Items.Add(ls)
        Next

        ListView2.Clear()
        ListView2.Sorting = SortOrder.Ascending
        For index = 0 To 9
            Dim ls As New ListViewItem(index.ToString, 0)
            ListView2.Items.Add(ls)
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For i = 0 To ListView1.Items.Count - 1
            For i2 = 0 To ListView2.Items.Count - 1
                If ListView1.Items(i).Text = ListView2.Items(i2).Text Then
                    ListView1.Items(i).SubItems.Add(i).Text = [Ô]SIM[Ô]
                End If
            Next
        Next
    End Sub

no form so tem o listview 1 e 2 e um botão q compara
Tópico encerrado , respostas não são mais permitidas
Voltar