VS2013 - Object refence not set to an instance of an object

Bonjour,

J'ai une erreur dans ce code que je n'arrive pas à résoudre.
L'objectif est de charger une valeur à un TEXTBOX dont le name commence par "t_".
j'ai environ 40 textbox qui par ce biais devrait être alimentés automatiquement.

Code:

---

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

Dim DS As New DataSet DS = GetIvec31() Try For i As Integer = 0 To DS.Tables(0).Rows.Count - 1 Dim mJL As String = DS.Tables(0).Rows(i).Item("JL") Dim mQ As String = DS.Tables(0).Rows(i).Item("QTOT").ToString Dim t As TextBox = CType(Me.Controls("t_" & mJL), TextBox) t.Text = mQ   Next (i)   Catch ex As Exception MsgBox(ex.Message)   End Try

---

Comme vous le voyez, mes données proviennent d'un DataSet.
JL est l'extention du nom du textbox (ex : t_CI, t_ML, t_FU, etc...).
QTOT est un INTEGER et cette valeur sera attribuée au TEXT du Textbox.

Cela fonctionne pour le premier de la liste mais ensuite c'est plante...

Avez vous une idée ?
Merci

Citation:

---

Dim t As TextBox = CType(Me.Controls("t_" & mJL), TextBox)

---

ton erreur indique que tu travailles avec quelque chose qu'il ne connais pas. Ici, je suppose qu'un TextBox "t_xx" est trouvé en base mais pas dans le formulaire?

Bien vu!!!! Merci!

bonjour,

Je ré-ouvre ce post car je ne trouve pas de solution.

Code:

---

Dim t As TextBox = CType(Me.Controls("t_" & mJL), TextBox)

---

Effectivement, le TextBox "t_xx" est trouvé en base mais pas dans le formulaire. Je ne vois pas comment je peux formuler le fait que le FORM doit passer au suivant si non trouvé.

Une idée?

Bon, j'ai fini par trouver..
Voici le code.

Code:

---

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

For i As Integer = 0 To DS.Tables(0).Rows.Count - 1 Dim mJL As String = DS.Tables(0).Rows(i).Item("JL") Dim mQ As String = DS.Tables(0).Rows(i).Item("QTOT").ToString     Dim t As TextBox = CType(Me.Controls("t_" & mJL), TextBox)   'Recherche si Textbox existe Dim myControl1 As Control = t If (Not myControl1 Is Nothing) Then t.Text = mQ 'si existe affichage de la valeur du JL End If   Next (i)

---

Merci en tout cas de m'avoir lu.

Ne serait-il pas plus simple de boucler sur les contrôles de ta form (du type souhaité) puis de faire le test avec le DS?

Code:

---

1 2 3 4

For Each c As TextBox In Me.Controls .... Next

---