probleme sur un tableau

bonjour,

j'ai un petit souci avec mon tableau dans mon code :

Code:

---

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

Private vitableauidenfant() As Integer   ReDim vitableauidenfant(10) For i = 0 To vgAdulte.EnfantsNombre - 1 enfants.Items.Add(vgAdulte.Enfants(i).nom & " " & vgAdulte.Enfants(i).prenom) vitableauidenfant(i) = vgAdulte.Enfants(i).enfantid Next i   For i = 0 To vitableauidenfant.Length - 1 vlr = "Update enfant set regimeid = " & regimeid.SelectedIndex & " where enfantid = " & vitableauidenfant(i) next

---

Mon probleme est que vitableauidenfant.Length - 1 vaut 11 or que je n'ai que 2 enfants associées je pense que c'est a cause du redim mais si je ne le met pas j'obtiens cette erreur :

Citation:

---

La référence d'objet n'est pas définie à une instance d'un objet.

---

Du coup je ne sais pas trop comment faire

Merci d'avance

Salut

Essaie d'éviter les tableaux, redim etc.. c'est prise de tête..
Tu peux utiliser une List(Of Integer) par exemple (msdn). Ajoute des items grâce à la méthode Add, ça te permet de ne pas fixer la capacité de ton tableau.. et de ne pas avoir cette erreur.

Salut

pourquoi ne pas utiliser un list of
c'est quoi vgAdulte ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Private vitableauidenfant As New List(Of integer)   For i = 0 To vgAdulte.EnfantsNombre - 1 enfants.Items.Add(vgAdulte.Enfants(i).nom & " " & vgAdulte.Enfants(i).prenom) vitableauidenfant.add= vgAdulte.Enfants(i).enfantid Next i   For each item in vitableauidenfant vlr = "Update enfant set regimeid = " & regimeid.SelectedIndex & " where enfantid = " & item next

---

Vgadulte est une variable globale de ma classe adulte qui me sert a faire des recherches , ajouter, modifier supprimer un enregistrement. Je vais essayer avec un list.

Merci de votre aide