Discussion :

[Fr33dom]

Bien le bonjour

Je souhaiterai, à partir d'une list(of string), remplir mes champs de textbox les un à la suite des autres.
Mais j'ai une erreur me disant :

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

Voici la partie de code qui déconne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub LstBoxArbres_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LstBoxArbres.SelectedIndexChanged
 
        Dim tabListArticleArbres As New List(Of String)
 
        'Fonction récupérant les éléments d'une base de donnée et les stocke
        'dans tabListArticleArbres
        Gestion_BDD.Requete_Read("Arbres", "*", tabListArticleArbres, "", "Code_Article = '" & LstBoxArbres.Text & "'")
 
        For i As Integer = 1 To 6
            Me.Controls("TextBox" & i.ToString).Text = tabListArticleArbres(i)
        Next
 
    End Sub

Je précise que j'ai bien 6 TextBox déjà créé sur mon interface

[Proteus91]

Ca plante dans la boucle ou avant ?

[Fr33dom]

Il plante sur la ligne

Code :

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

Me.Controls("TextBox" & i.ToString).Text =...

[Proteus91]

Tu es sure que ton "tabListArticleArbres" vas bien de 1 a 6 et pas de 0 a 5 ?

Dans le cas ou c'est un oui. je veux bien que tu me donne les valeurs de I et de ton tabListArticleArbres(i) pour chacune des boucles...

[Fr33dom]

Alors dans la variable j'ai :

Code :

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

1
2
3
4
5
6
7
tabListArticleArbres(0) = "titi"
tabListArticleArbres(1) = "titi"
tabListArticleArbres(2) = "toto"
tabListArticleArbres(3) = "tata"
tabListArticleArbres(4) = "tutu"
tabListArticleArbres(5) = "tyty"
tabListArticleArbres(6) = "tete"

et j'ai déjà des textbox sur une form de TextBox0 à TextBox6

avec ce nouveau code quasi similaire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub LstBoxArbres_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LstBoxArbres.SelectedIndexChanged
 
        Dim tabListArticleArbres As New List(Of String)
 
        'Fonction récupérant les éléments d'une base de donnée et les stocke
        'dans tabListArticleArbres
        Gestion_BDD.Requete_Read(..., tabListArticleArbres,...)
 
        For i As Integer = 0 To 6
            Me.Controls("TextBox" & i.ToString).Text = tabListArticleArbres(i)
        Next
 
    End Sub

Et le code bloque avec i=0

[Proteus91]

Re desolé je te donne le code en c#

Reste plus qu'a traduire.

Code :

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

1
2
3
4
5
6
 
                for (int i = 0; i < 6; i++)
                {
                    Control MyControl = this.Controls["textBox" + i.ToString()];
                    MyControl.Text = tabListArticleArbres(i);
                }

Normalement ca devrai aller.