Comparer 2 ListViews dans une 3éme
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:
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 |
