Supprimer une ligne d'un HashTable dans un For Each

Bonjour,

Voilà j'aimerais pouvoir supprimer une ligne de mon Hashtable quand la date est celle qui correspond à la plus ancienne.
Mais j'ai un message d'erreur dès le second passage, car il n'apprécie pas la modification.

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

Dim laDate As String = Nothing   For Each soins As DictionaryEntry In dateHashtable   laDate = dateDeSoin   If Not dateMajoration = elemt.Key Then   For Each dates As DictionaryEntry In dateHashtable   If (CType(dates.Key, Date)) < (CType(laDate, Date)) Then   laDate = dates.Key dateMajoration = laDate   dateHashtable.Remove(dates.Key)   End If   Next   End If   Next

---

EDIT:

Le message d'erreur:

Citation:

---

La collection a été modifiée; l'opération d’énumération peut ne pas s'exécuter!

---

Merci!

Bonjour

Tout est dit dans l'erreur ^^ Tu modifies la liste que tu parcours, ça lui plait pas.
J'ai déjà eu besoin de travailler sur des listes, supprimer des éléments dans une liste en la parcourant.
La solution facile c'est un for i = dataHashtable.count-1 to 0 step -1.
Mais je sais qu'il existe des méthodes pour supprimer directement des éléments à partir de leur index ou de leurs valeurs, mais je ne les ai pas en tête.

Citation:

---

Envoyé par Uranne-jimmy

Bonjour

Tout est dit dans l'erreur ^^ Tu modifies la liste que tu parcours, ça lui plait pas.
J'ai déjà eu besoin de travailler sur des listes, supprimer des éléments dans une liste en la parcourant.
La solution facile c'est un for i = dataHashtable.length-1 to 0 step -1.
Mais je sais qu'il existe des méthodes pour supprimer directement des éléments à partir de leur index ou de leurs valeurs, mais je ne les ai pas en tête.

---

J'avais compris qu'il n'aimait pas la modification lors du parcours :roll:

Code:

---

for i = dataHashtable.length-1 to 0 step -1

---

Length n'est pas un membre du Hashtable donc sa ne peut pas fonctionner.

J'ai édité trop tard ^^
Un passage sur le msdn m'a permis de corriger : datahashtable.count-1.

Citation:

---

Envoyé par Uranne-jimmy

J'ai édité trop tard ^^
Un passage sur le msdn m'a permis de corriger : datahashtable.count-1.

---

Mais cela ne me permet pas de supprimer un élément du HashTable? :?

Je n'utilise pas cette collection en particulier, excuse moi ^^
Il n'y a pas d'index donc on ne peux pas faire comme ça, on doit faire autrement, mais dans tout les cas, un for each n'est pas la solution.

Code:

---

1 2 3 4 5 6 7 8

If (CType(dates.Key, Date)) < (CType(laDate, Date)) Then   laDate = dates.Key dateMajoration = laDate   dateHashtable.Remove(dates.Key)   End If

---

... J'ai beau chercher, dans ce cas la solution serait d'enregistrer les dates.key dans une liste, et une fois le for each terminé, de supprimer toutes les clés de la liste :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

dim cle_A_Suppr as new list(of date) For Each dates As DictionaryEntry In dateHashtable   If (CType(dates.Key, Date)) < (CType(laDate, Date)) Then   laDate = dates.Key dateMajoration = laDate   cle_A_Suppr.add(dates.key) End If   Next for each cle in cle_A_Suppr dateHashtable.Remove(cle) next

---

Je n'ai pas testé, et je n'ai pas fait le code en option strict on, mais j'espère que ça marche ^^'

Ton code fonctionnait mais j'ai finalement trouvé la solution:

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

For Each elemt As DictionaryEntry In dateHashtable   laDate = dateDeSoin   If Not dateMajoration = elemt.Key Then   For Each datesEu As DictionaryEntry In dateEuHashtable   If (CType(datesEu.Key, Date)) < (CType(laDate, Date)) Then   laDate = datesEu.Key dateMajoration = laDate montantADateVoulue = datesEu.Value   End If   Next   dateEuHashtable.Remove(laDate) valeurForfait = valeurForfait - montantADateVoulue   End If   Next

---

J'ai déclaré un second hashtable et je peux faire le remove à la sortie du for each.

Merci!