collection ne continue pas a incrementer

bonsoir s il vous plait j ai un petit probleme ,je veux deserialiser des enregistrements d un fichier et ajouter d autres a la collection ,j ai essayé mais y a un message qui me dit que j ajoute une clé en double ,ca veut dire le hashtable recommence a 0 et ne continue pas l incrementation du matricule .

code restauration

Code:

---

1 2 3 4 5 6 7 8 9

If File.Exists("E:\test_vb\Gestion Personnel(heritage)\fichier_yassine") = True Then   Dim fic_lect As New FileStream("E:\test_vb\Gestion Personnel(heritage)\fichier_yassine", FileMode.Open) Dim format As New BinaryFormatter   ht = DirectCast(format.Deserialize(fic_lect), Hashtable) fic_lect.Close()   End If

---

code ajout ds la collection:

Code:

---

1 2 3 4 5 6 7

Try Dim emp As New employe(txtnom.Text, CInt(txtage.Text), CInt(Me.txtsal.Text), Me.txtentr.Text, Me.result_assure) ht.Add(emp._ncarte, emp)   Catch ex As AgeException MsgBox(ex.tostring) End Try

---

merci d avance

si tu veux tu peux ajouter un atribu a ta classe employe qui est shared (shared dim num as integer) et qui s'ncrimente chaque fois que un employe est crée
c'est a dire dans le constructeur par exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

class employé dim ncarte as integer dim nom as string dim prénom as string shared dim num as integer   sub new (nom as string,prénom as string) me.nom=nom me.prénom=prénom me.ncarte=num num=num+1 end sub

---

comme sa chaque employe a son propre ncarte.

je l'ai bien fais dans ma classe mais ca ne marche pas ,le probleme c est que quand je fais la restauration je cree un nouvel objet pour le metre dans mon hashtable mais quand j ajoute aprés la restauration c est comme si j ajoute pour la premiere fois dans la collection et hooop CLEE EN DOUBLE parce que le matricule 1 existe dejà (il a ete restauré) et celui que je viens d inserer dans le hash . c est un petit peux complqué pour l expliquer