Discussion :

[jjcasalo]

Bonjour à tous,

Je cherche à mettre des données dans une List (of <Class>), mais avant d'insérer, je veux vérifier si la donnée existe déjà.

Voici ce que j'ai :

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
 
    Private Class GroupSecuDims
        Public Property GroupName As String
        Public Property SecuDim As String
    End Class
 
   Private sub Test()
      Dim _groupSecuDims = New List(Of GroupSecuDims)
      For i = 0 to DGV.rows.count -1
           ' Le DGV a 2 champs, qui correspondent à GroupName et SecuDim
           if _groupSecuDims.indexOf(GroupName = DGV(GroupName).value & SecuDim = DGV(SecuDim).value) then
                '_groupSecuDims.Add(New GroupSecuDims With {.GroupName = groupName, .SecuDim = secuDim})                            
           end if
      Next
 
   End Sub

Ma question concerne le test que je dois faire pour tester s'il y a déjà un enregistrement avec les mêmes données.

Je sais que je pourrais faire une boucle pour aller vérifier chaque ligne. Mais je pense que le IndexOf doit être plus rapide.

Merci d'avance.

[Phil Rob]

Bonjour,

Sûr que IndexOf est le moyen le plus rapide de savoir si une donnée est déjà présente dans une liste.
La méthode retourne l'index de la donnée dans liste, de 0 à Count-1, et -1 si la donnée ne s'y trouve pas.

Mais je n'ai sans doute rien compris à ta question parce que ta syntaxe ne me paraît pas correcte :

_groupSecuDims.indexOf(GroupName = DGV(GroupName).value & SecuDim = DGV(SecuDim).value).

Si GroupeName est le nom d'une colonne du DGV, alors la syntaxe serait sans doute :

If _groupSecuDims.indexOf( DGV(GroupName).value) > -1 Then ... ' la donnée existe.

et si SecuDim est aussi un nom d'une colonne du DGV, ET qu'il faut que les 2 colonnes soient trouvées pour considérer que le donnée existe, alors la syntaxe serait sans doute :

Code :

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

If _groupSecuDims.indexOf( DGV(GroupName).value) > -1  ANDALSO  _groupSecuDims.indexOf( DGV.(SecuDim).value) > -1 Then ... ' la donnée existe

Mais j'ai un doute sur un détail. Je ne crois pas que DGV(GroupName).value donne une valeur (toujours sous réserve de ma bonne compréhension de ta question), je crois que la syntaxe serait plutôt :

Code :

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

1
2
3
4
5
 
Dim IndexColonne As Integer = DGV.Columns("GroupName").Index
Dim IndexLigne As Integer   ' valeur à fournir
' et puis on accède à la valeur par :
DGV.Item(IndexColonne, IndexLigne).Value

Bonne journée

[jjcasalo]

Bonjour Phil,

Merci pour ta réponse. Mais j'ai dû mal présenter le problème, car ta réponse ne convient pas..

En gros, j'ai un tableau avec 2 colonnes, et plusieurs valeurs :

GroupName	SecuDim
AA	Secu 1
AA	Secu 2
BB	Secu1

Et dans mon DGV, j'ai aussi ces 2 colonnes, avec d'autres colonnes.
Et pour chaque ligne de mon DGV, je veux vérifier que pour les valeurs GroupName et SecuDim de la ligne, ces valeurs existent bien dans mon tableau.
En sachant que mon tableau est représenté par une Class.
Donc, dans mon test IndexOf, il que que je vérifie l'existence d'un enregistrement avec le GroupName ET le SecuDim.
Par exemple, si dans mon DGV, j'ai (GroupName = 'AA' ET SecuDim = 'Secu 3'), je veux être alerté (car ce cas n'est pas présent dans le tableau)

Note : S'il y a plus simple pour réprésenter mon tableau que la Class, çe ne pose aucun problème de changer.

Merci d'avance

[Phil Rob]

Comment se nomme ton tableau et par quel code accèdes-tu aux élément du tableau ?

En fait, je souhaite avoir la syntaxe qui permet quelque chose comme ça : MonTableau.GroupeName.IndexOf(...) .


...

[jjcasalo]

Comme indiqué dans mon premier message :

Code :

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

1
2
3
4
5
6
7
8
 
 Private Class GroupSecuDims
        Public Property GroupName As String
        Public Property SecuDim As String
    End Class
 
   Private sub Test()
      Dim _groupSecuDims = New List(Of GroupSecuDims)

Ce n'est pas vraiment un tableau, mais une List (of GroupSecuDims)..

Cette List (of...) est ensuite remplie "à la main" ailleurs dans le programme. On va donc considérer que les données sont déjà dedans.

(merci pour l'aide)

[Phil Rob]

Re ...

L’utilisation de IndexOf ne donne aucun résultat valide, sans doute parce que la méthode n'est pas surchargée dans ta Class.
Comme tu peux le voir sur la 1ère illustration, lors d'une exécution en pas à pas, la méthode ne trouve pas la pair "AA", "Secu 1" pourtant bien présente dans la ListOf.
Le code de cette exécution se trouve dans le projet de test que je t'envoie : DataTable_ListOf.zip


A défaut de pouvoir utiliser IndexOf, j'ai écrit ma propre boucle de recherche. Elle exécute le travail que tu demandes.
Pour signaler l'absence de l'info dans la ListOf, je mets en rouge le texte concerné dans le DataGridView.


J'espère que ça te dépannera ...

[__bv__]

Pourquoi ne pas utiliser un Hashset à la place d'une List ?
Un Hashset peut être constitué de GroupSecuDims et il n'acceptera jamais de doublon.

[jjcasalo]

Merci pour vos remarques.
Je ne connaissais pas le Hashset. Je vais voir comment on l'utilise.

[__bv__]

Attention toutefois qu'un Hashset n'a pas de notion d'ordre de ses éléments ou d'index.
Il faut alors le convertir en List ou Array où là on a accès à ces fonctions (Sort, Reverse etc.)