Discussion :

[planeurbret]

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 :

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

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

[hugoclo]

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

[rv26t]

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 :

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

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é.

[planeurbret]

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