bonjour
Je suis en train de développer une classe externe et je crois que je suis en train de passer à côté d'un détail simple, mais que je ne capte pas. Cela est certainement du à mes carences en objet pur.
Donc voilà le code actuel
Et dans une page je fais ça :
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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39 Private _tb As Table Private _Id_DetPara As Int16 Public Property tb() As Table Get Return _tb End Get Set(ByVal value As Table) _tb = value End Set End Property Public Property Id_DetPara() As Int16 Get Return _Id_DetPara End Get Set(ByVal value As Int16) _Id_DetPara = value End Set End Property Public dm As New DataManager("CS") Sub New(ByVal cel As TableCell) Dim dt As DataTable = dm.ExecuterRequeteSimple("SELECT Format FROM MILI_Paragraphe_Detail WHERE Id_Paragraphe_Detail = " & Id_DetPara) Dim l As New Label l.Text = "toto" & Id_DetPara Dim r As New TableRow Dim c As New TableCell Dim t As New Table tb = t c.Controls.Add(l) r.Cells.Add(c) tb.Rows.Add(r) cel.Controls.Add(tb) End Sub
Ce code est placé dans le Page_Load.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Dim r As New TableRow Dim c As New TableCell Dim p As New Paragrafe(c) p.Id_DetPara = 5 c.Controls.Add(p.tb) r.Cells.Add(c) tblGene.Rows.Add(r)
Et dans la page je vois marqué
Donc, il y a un détail qui m'échappe : pourquoi j'ai 0 là où je devrais avoir 5 ?toto0
Est ce que j'ai un souci sur l'ordre de création des choses ou est ce que je ne sais pas bien utiliser les propriétés dans une classe ?
Merci pour votre aide.
Partager