Discussion :

[Bass_77139]

Bonjour,

Je posséde 3 ListViews et un Bouton.
J' essai en vain de comparer Lv1 (Fournisseur ) à Lv2 ( Client ) et d' afficher les données manquantes de Lv2 par rapport à Lv1 dans Lv3( Articles...) .

Voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
' ***********************************************
        ' **** AFFICHAGE DES ARTICLES NON ENREGISTRES ***
        ' ***********************************************
        Dim bTrouvé As Boolean
        Dim n As Integer
        Dim r As Integer
 
 
        ' ON VIDE LA LISTVIEW : LISTE_ARTICLES_INDISPONIBLES
        Liste_Articles_Non_Enregistres.Items.Clear()
 
        ' LANCEMENT DE LA PROCEDURE DE COMPARAISON
        For r = 1 To Liste_Articles_Fournisseur.Items.Count - 1
            bTrouvé = False
            For n = 1 To Liste_Articles_Client.Items.Count - 1
                If Liste_Articles_Fournisseur.Items(r).SubItems(0).Text <> Liste_Articles_Client.Items(n).SubItems(0).Text Then
' ACTION A FAIRE
                    Dim ListView As New ListViewItem
                    ListView.Text = Liste_Articles_Fournisseur.Items(r).SubItems(0).Text
                    ListView.SubItems.Add(Liste_Articles_Fournisseur.Items(r).SubItems(1).Text)
                    ListView.SubItems.Add(Liste_Articles_Fournisseur.Items(r).SubItems(2).Text)
                    ListView.SubItems.Add(Liste_Articles_Fournisseur.Items(r).SubItems(3).Text)
                    ListView.SubItems.Add(Liste_Articles_Fournisseur.Items(r).SubItems(4).Text)
                    Liste_Articles_Non_Enregistres.Items.Add(ListView)
                End If
                ' MEMORISE SI UN MEME ITEM A ETE TROUVE
                bTrouvé = True
                ' ON SORT DE LA BOUCLE
                Exit For
 
            Next
            If Not bTrouvé Then
            End If
        Next

[zebrette]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
            For n = 1 To Liste_Articles_Client.Items.Count - 1
                If Liste_Articles_Fournisseur.Items(r).SubItems(0).Text <> Liste_Articles_Client.Items(n).SubItems(0).Text Then
' ACTION A FAIRE
                    Dim ListView As New ListViewItem
                    ListView.Text = Liste_Articles_Fournisseur.Items(r).SubItems(0).Text
                    ListView.SubItems.Add(Liste_Articles_Fournisseur.Items(r).SubItems(1).Text)
                    ListView.SubItems.Add(Liste_Articles_Fournisseur.Items(r).SubItems(2).Text)
                    ListView.SubItems.Add(Liste_Articles_Fournisseur.Items(r).SubItems(3).Text)
                    ListView.SubItems.Add(Liste_Articles_Fournisseur.Items(r).SubItems(4).Text)
                    Liste_Articles_Non_Enregistres.Items.Add(ListView)
                End If
                ' MEMORISE SI UN MEME ITEM A ETE TROUVE
                bTrouvé = True
                ' ON SORT DE LA BOUCLE
                Exit For
 
            Next
            If Not bTrouvé Then
            End If

ce serait pas plutot quelque chose comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
            For n = 1 To Liste_Articles_Client.Items.Count - 1
                If Liste_Articles_Fournisseur.Items(r).SubItems(0).Text = Liste_Articles_Client.Items(n).SubItems(0).Text Then
                'L'item de Lv1 est trouvé dans Lv2 donc on sort de la boucle
                bTrouvé = True
                Exit For
                End If
            Next
            If Not bTrouvé Then
                    'Si l'item n'a pas été trouvé on l'ajoute à Lv3
                    Dim ListView As New ListViewItem
                    ListView.Text = Liste_Articles_Fournisseur.Items(r).SubItems(0).Text
                    ListView.SubItems.Add(Liste_Articles_Fournisseur.Items(r).SubItems(1).Text)
                    ListView.SubItems.Add(Liste_Articles_Fournisseur.Items(r).SubItems(2).Text)
                    ListView.SubItems.Add(Liste_Articles_Fournisseur.Items(r).SubItems(3).Text)
                    ListView.SubItems.Add(Liste_Articles_Fournisseur.Items(r).SubItems(4).Text)
                    Liste_Articles_Non_Enregistres.Items.Add(ListView)
            End If