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
 
Private Sub SuppressionUtilisateur2(ByVal myDataTable As DataTable)
        dossierContacts = myDefaultFolder.Folders("Gedo")
 
        'On créé un filtre qui contient tout les ID_CONTACT à supprimer
        sFilter = ""
        For i As Integer = 0 To myDataTable.Rows.Count - 1
            If (i = 0) Then
                sFilter += "Not([CustomerID] = '" + myDataTable.Rows(i).Item("ID_CONTACT").ToString + "')"
            Else
                sFilter += " And Not([CustomerID] = '" + myDataTable.Rows(i).Item("ID_CONTACT").ToString + "')"
            End If
        Next
        'On supprime les contacts trouvés
        myListOfContact = dossierContacts.Items
        myNewContact = myListOfContact.Find(sFilter)
        While Not (myNewContact Is Nothing)
            'les contact sans id sont des contact créé a la main
            'Donc on les garde
            If (TypeName(myNewContact.CustomerID) <> "Nothing") Then
                myNewContact.Delete()
            End If
            myNewContact = myListOfContact.FindNext()
        End While
    End Sub
sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
 myNewContact = myListOfContact.Find(sFilter)
j'ai l"erreur :
Condition non valide.
ça fait un moment que je tourne autour, il doit presque rien manquer.
Merci de votre aide