Código:
En el código HTML de la página debería quedar algo así:Dim ID As String = Me.ddlTipo.SelectedValue Dim ds As DataSet = OrigenDatos.EjecutaPA("PA_GruposSuperiores", ID) For Each dt As DataTable In ds.Tables Dim lbl As New Label lbl.Text = QuitaEspacios(dt.Rows(0).Item("Tipo")) lbl.CssClass = "titulillo" Me.pnlGruposSuperiores.Controls.Add(lbl) Dim barra As New HtmlControls.HtmlGenericControl barra.InnerHtml = "<HR class='seccion'>" Me.pnlGruposSuperiores.Controls.Add(barra) Dim rbl As New RadioButtonList rbl.DataSource = dt rbl.DataTextField = "Nombre" rbl.DataValueField = "ID" rbl.DataBind() rbl.RepeatDirection = RepeatDirection.Horizontal rbl.RepeatColumns = 4 For i As Integer = 0 To rbl.Items.Count - 1 rbl.Items(i).Attributes.Add("onClick", "GruposSuperiores(this)") Next Me.pnlGruposSuperiores.Controls.Add(rbl) Next
Código HTML:
.... <input id="_ctl2_4" type="radio" name="_ctl2" value="167" onClick="GruposSuperiores(this)" /> <input id="_ctl2_5" type="radio" name="_ctl2" value="167" onClick="GruposSuperiores(this)" /> .....