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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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