Rajouter des radioboutons dans une table
Voila j'ai un code existant avec une table qui est rempli dynamiquement "row" apres "row" avec du texte.
J'aimerais a present rajouter de temps en temps des radio boutons au milieu de tout ça.
Probleme je n'arrive pas a rajouté des control "radiobouton" dans mes "row", il me jette avec une exeption.
Petit exemple de fonction:
Code:
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
| pType permet d'indiquer quel type de ligne nous souhaitons ajouter :
' - F : pour une famille
' - C : pour un catégorie
' - T : pour un thème
' - U : pour les utilisateurs résponsable et de remplacement
Private Function ajouteLigne(ByVal pTexte As String, ByVal pType As Char) As TableRow
Dim cell As New TableCell
Dim rdb As New RadioButton
With cell
Select Case pType
Case "F"
.Text = pTexte
.CssClass = "famille"
Case "C"
.Text = pTexte
.CssClass = "categorie"
Case "T"
rdb.text = pTexte
rdb.CssClass = "theme"
rdb.GroupName = "choix"
Case "U"
.Text = pTexte
.CssClass = "responsable"
End Select
End With
'On ajoute nos champs dans la table
Dim row As New TableRow
If pType = "T" Then
'cas ou on a un theme
row.Controls.Add(CType(rdb, Control))
Else
'cas ou ce n'est pas un theme
row.Cells.Add(cell)
End If
Return row
End Function |
Puis je continuer a utilisé une "table" ou est ce que je dois changer de solution? Merci.