Agregar controles a tablas dinamicamente
Publicado por Javi (9 intervenciones) el 01/06/2007 10:15:19
Hola a todos,
Estoy intentando agregar controles a una tabla mediante codigo pero tengo algunos problemillas.
Lo que quiero hacer es que cuando se presione cierto boton se me añada una fila nueva a una tabla. Esta fila tiene tres celdas, una con un imagebutton otra con un texto y la otra con un radiobutton.
Cuando hago click en el boton efectivamente me aparece la nueva fila y me aparece la celda del imagebutton y la del text, pero la del radiobutton no me aparece y, además, cuando vuelvo a presionar el boton no me añade ninguna fila mas.
¿Alguien sabe que es lo que estoy haciendo mal?
Os pongo mi codigo para que lo entendais mejor:
Protected WithEvents Buscar_sugerentes As System.Web.UI.WebControls.Button
//en el codigo html tengo un <asp:Table> con el idTabla_Equipo
Protected WithEvents Tabla_Equipo As System.Web.UI.WebControls.Table
Protected WithEvents Seleccion_Lider As New System.Web.UI.WebControls.RadioButtonList()
Private Sub Buscar_sugerentes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar_sugerentes.Click
Tabla_Equipo.Visible = True
Dim Imagen_Eliminar As New System.Web.UI.WebControls.ImageButton()
Imagen_Eliminar.ImageUrl = "../../Imagenes/iconos/x.gif"
Dim lider_selec As New System.Web.UI.WebControls.RadioButton()
Seleccion_Lider.Controls.Add(lider_selec)
Dim NuevaFila As New System.Web.UI.WebControls.TableRow()
Dim NuevaCelda1 As New System.Web.UI.WebControls.TableCell()
Dim NuevaCelda2 As New System.Web.UI.WebControls.TableCell()
Dim NuevaCelda3 As New System.Web.UI.WebControls.TableCell()
NuevaCelda1.HorizontalAlign = HorizontalAlign.Center
NuevaCelda1.VerticalAlign = VerticalAlign.Middle
NuevaCelda1.Controls.Add(Imagen_Eliminar)
NuevaCelda2.HorizontalAlign = HorizontalAlign.Center
NuevaCelda2.VerticalAlign = VerticalAlign.Middle
NuevaCelda2.Text = "Apellido1 Apellido2, Nombre"
NuevaCelda3.HorizontalAlign = HorizontalAlign.Center
NuevaCelda3.VerticalAlign = VerticalAlign.Middle
NuevaCelda3.Controls.Add(Seleccion_Lider)
NuevaFila.Controls.Add(NuevaCelda1)
NuevaFila.Controls.Add(NuevaCelda2)
NuevaFila.Controls.Add(NuevaCelda3)
Tabla_Equipo.Controls.Add(NuevaFila)
End Sub
Muchas gracias a todos
Estoy intentando agregar controles a una tabla mediante codigo pero tengo algunos problemillas.
Lo que quiero hacer es que cuando se presione cierto boton se me añada una fila nueva a una tabla. Esta fila tiene tres celdas, una con un imagebutton otra con un texto y la otra con un radiobutton.
Cuando hago click en el boton efectivamente me aparece la nueva fila y me aparece la celda del imagebutton y la del text, pero la del radiobutton no me aparece y, además, cuando vuelvo a presionar el boton no me añade ninguna fila mas.
¿Alguien sabe que es lo que estoy haciendo mal?
Os pongo mi codigo para que lo entendais mejor:
Protected WithEvents Buscar_sugerentes As System.Web.UI.WebControls.Button
//en el codigo html tengo un <asp:Table> con el idTabla_Equipo
Protected WithEvents Tabla_Equipo As System.Web.UI.WebControls.Table
Protected WithEvents Seleccion_Lider As New System.Web.UI.WebControls.RadioButtonList()
Private Sub Buscar_sugerentes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar_sugerentes.Click
Tabla_Equipo.Visible = True
Dim Imagen_Eliminar As New System.Web.UI.WebControls.ImageButton()
Imagen_Eliminar.ImageUrl = "../../Imagenes/iconos/x.gif"
Dim lider_selec As New System.Web.UI.WebControls.RadioButton()
Seleccion_Lider.Controls.Add(lider_selec)
Dim NuevaFila As New System.Web.UI.WebControls.TableRow()
Dim NuevaCelda1 As New System.Web.UI.WebControls.TableCell()
Dim NuevaCelda2 As New System.Web.UI.WebControls.TableCell()
Dim NuevaCelda3 As New System.Web.UI.WebControls.TableCell()
NuevaCelda1.HorizontalAlign = HorizontalAlign.Center
NuevaCelda1.VerticalAlign = VerticalAlign.Middle
NuevaCelda1.Controls.Add(Imagen_Eliminar)
NuevaCelda2.HorizontalAlign = HorizontalAlign.Center
NuevaCelda2.VerticalAlign = VerticalAlign.Middle
NuevaCelda2.Text = "Apellido1 Apellido2, Nombre"
NuevaCelda3.HorizontalAlign = HorizontalAlign.Center
NuevaCelda3.VerticalAlign = VerticalAlign.Middle
NuevaCelda3.Controls.Add(Seleccion_Lider)
NuevaFila.Controls.Add(NuevaCelda1)
NuevaFila.Controls.Add(NuevaCelda2)
NuevaFila.Controls.Add(NuevaCelda3)
Tabla_Equipo.Controls.Add(NuevaFila)
End Sub
Muchas gracias a todos
Valora esta pregunta


0