Tema: runat=server
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 12/08/2005, 00:41
setin
 
Fecha de Ingreso: agosto-2005
Mensajes: 2
Antigüedad: 19 años, 6 meses
Puntos: 0
hola de nuevo creo que estamos hablando de cosas distintas, en cualquier caso te pongo el codigo y le hecas un vistazo

dt = modelo.PintarModelos(Request.QueryString("expedien te"), Request.QueryString("modelo"), Request.QueryString("cual_modelo"))
'en dt tendriamos todos los componentes que se van a pintar en pantalla asi como su posicion y tipo
Select Case dt.Rows(i).Item("elm_tipo") 'selecionamos dependiendo de que tipo de componente vamos a crear

Case "C" 'combo
Dim x As Integer
Dim y As Integer
Dim ancho As Integer
Dim cadena As String
Dim literal As Integer
Dim alto As Integer
x = dt.Rows(i).Item("dat_pos_x")
y = dt.Rows(i).Item("dat_pos_y")
cadena = "<div id=p style='position:absolute; visibility: visible; background-color: #ffffff; left:" & x & "px; top: " & y & "px;'> " & dt.Rows(i).Item("elm_literal") & "</div>"
Response.Write(cadena)
'escribo el literal del combo provincia , municipio
literal = Len(dt.Rows(i).Item("elm_literal")) * 7


x = dt.Rows(i).Item("dat_pos_x")
y = dt.Rows(i).Item("dat_pos_y")
literal = Len(dt.Rows(i).Item("elm_literal")) * 7
ancho = (dt.Rows(i).Item("elm_longitud")) * 7
Dim combohtml As New HtmlSelect

combohtml.Style.Add("p", "Z-INDEX: 103; LEFT: " & x + literal & " px; POSITION: absolute; TOP: " & y & "px;border-size: 10")
pinta el combo en pantalla
Me.PlaceHolder1.Controls.Add(combohtml)
Dim dtcombo As DataTable
Dim modelos As New clsModelos
Dim pa As String
pa = dt.Rows(i).Item("elm_opcion")
dtcombo = modelos.comboModelos(pa)
'cargar el combo con los datos
combohtml.DataSource = dtcombo
combohtml.DataValueField = "identificador"
combohtml.DataTextField = "denominacion"
combohtml.DataBind()
combohtml.ID = dt.Rows(i).Item("ale_id")
combohtml.Value = dt.Rows(i).Item("ale_valor")

esto es el codigo del componente combo de forma detallada, el caso es el siguiente en los combos se cargan provincias y los municipios asociados a esa provicnia, evidentemente cuando en el combo de provincias se modifique la provincia selecionada se tienen que cambiar los municipios asociados a esa provincia, es decir se tiene que generar un evento que carge el combo de municipios con los municipios de la provincia que hemos selecionado.
muchas qgracias de antemano