Insertion de n onglets dans une TabControl

Bonjour,
Voila, j'ai une petite application que je suis en train de développé, or, je souhaiterais afficher n onglets (ou n, correspond à un nombre de devis pour un client). Or, à chaque fois que mon code passe, le numero de devis reste le meme .... (Dans la base, les numeros de devis sont différents...).

Voila mon code actuel:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Requete = "select numeroDevis  FROM Devis where NumeroClient= '" & NumeroClientConcerné & "' and year(dateDevis) = year(current_date())"
 
        Try
            'Exécution de la requête
            DonnéesDevis = OrdresSQL.ReqSelection(Requete)
            If DonnéesDevis.Rows.Count > 0 Then
                TAB_AffichDevis.Visible = True
                L_PasDevis.Visible = False
                For i = 0 To DonnéesDevis.Rows.Count - 1
                    NumeroDevis = DonnéesDevis.Rows(i).Item(0)
                    OngletDevis.Text = NumeroDevis
                    OngletDevis.Name = NumeroDevis
                    TAB_AffichDevis.TabPages.Add(OngletDevis)
                Next
            end if

En espérant qu'il y ait une solution. JE vous remercie

Bonsoir,
Quand vous faite un pas à pas DonnéesDevis.Rows.Count est = à combien?

Citation:

Envoyé par planeurbret

Or, à chaque fois que mon code passe, le numero de devis reste le meme ....

Il faut créer l'onglet avant de l'ajouter
Sinon il rajoute le même onglet en changeant son nom ainsi que les noms pour tous les onglets précédants qui ont été ajoutés. (En fait vous ajoutez plusieurs fois le même que vous renommez)
Code:

1 2 3 4 5 6 7 8 9 10 For i = 0 To DonnéesDevis.Rows.Count - 1 NumeroDevis = DonnéesDevis.Rows(i).Item(0) ' crée l'onglet avant de pouvoir l'ajouter à la liste OngletDevis = New TabPage OngletDevis.Text = NumeroDevis OngletDevis.Name = NumeroDevis TAB_AffichDevis.TabPages.Add(OngletDevis) Next
A+, Hervé.

Je viens de trouver le soucis =). Mais merci pour votre réponse ^^