Discussion :

[guilld]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ZenZiTone]

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?

[guilld]

Bien vu!!!! Merci!

[guilld]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[guilld]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ZenZiTone]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For Each c As TextBox In Me.Controls
    ....
Next