| ||||
Estas seguro que en tu page_load estas usando la condicion IsPostback ?? ![]() Si la tienes coloca parte del code que estas usando para echarle un ojo.. Salu2
__________________ Nadie roba nada ya que en la vida todo se paga . . . Exentrit - Soluciones SharePoint & Net |
| ||||
Si tiene ispostback.... Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not (Page.IsPostBack) Then Call CargarCombo1() Call CargarCombo2() Call CargarCombo3() Call CargarCombo4() End If End Sub Private Sub combo1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combo1.SelectedIndexChanged With Me.combo2 .DataSource = DS.Tables("tabla1") .DataTextField = "nombre" .DataValueField = "codigo" End With Me.combo2.DataBind() If Me.combo2.SelectedItem.Text = ("codigo") Then combo2_SelectedIndexChanged(Me, Nothing) End If End Sub y asi para los otros combos......... y el combo esta con Autopostback=true
__________________ Saludos desde el corazón de América.....BOLIVIA Da lo mejor de ti, que siempre será recompensado |
| |||
Combos en aspx Observa mi caso y funciona muy bien!!!! <%@ Page Language="vb" AutoEventWireup="True" Codebehind="NuevoAlumno.aspx.vb" Inherits="Reparacion.NuevoAlumno"%> <%@ Import Namespace=system.data.sqlclient%> <%@ Import Namespace=system.data %> <%@ Import Namespace=System.IO %> <SCRIPT language="VB" runat="server"> Dim conn As New SqlClient.SqlConnection Function JalaDistritos(Dp as String,Pv as String) As datatable Dim dtDistrito as new DataTable Try conn.ConnectionString = "integrated security=SSPI;data source=localhost;persist security info=False;initial catalog=reparacion" conn.Open() Dim sqldaDistrito As New SqlDataAdapter("select nombre,idDistrito from distrito where Distrito.Iddepartamento='" & Dp & "' and Distrito.idprovincia='" & Pv & "'" , Conn) sqldaDistrito.Fill(dtDistrito) Catch ex As Exception lblNombre.text="" Finally conn.Close() End Try Return dtDistrito End Function Function JalaProvincias(Dp as string) As datatable Dim dtProvincia as new DataTable Try conn.ConnectionString = "integrated security=SSPI;data source=localhost;persist security info=False;initial catalog=reparacion" conn.Open() Dim sqldaProvincia As New SqlDataAdapter("select nombre,idProvincia from provincia where provincia.iddepartamento='" & Dp & "'", Conn) sqldaProvincia.Fill(dtProvincia) Catch ex As Exception lblNombre.text="" Finally conn.Close() End Try Return dtProvincia End Function Function JalaDepartamentos() As datatable Dim dtDepartamento as new DataTable Try conn.ConnectionString = "integrated security=SSPI;data source=localhost;persist security info=False;initial catalog=reparacion" conn.Open() Dim sqldaDepartamento As New SqlDataAdapter("select nombre,idDepartamento from departamento", Conn) sqldaDepartamento.Fill(dtDepartamento) Catch ex As Exception lblNombre.text="" Finally conn.Close() End Try Return dtDepartamento End Function Sub Page_Load(sender As Object, e As EventArgs) if Not IsPostBack Then LstDistrito.DataSource = JalaDistritos("01","01") LstDistrito.DataTextField = "nombre" LstDistrito.DataValueField = "idDistrito" LstDistrito.DataBind() LstDepartamentoNacimiento.DataSource = JalaDepartamentos() LstDepartamentoNacimiento.DataTextField = "nombre" LstDepartamentoNacimiento.DataValueField = "idDepartamento" LstDepartamentoNacimiento.DataBind() LstProvinciaNacimiento.DataSource = JalaProvincias("01") LstProvinciaNacimiento.DataTextField = "nombre" LstProvinciaNacimiento.DataValueField = "idProvincia" LstProvinciaNacimiento.DataBind() LstDistritoNacimiento.DataSource = JalaDistritos("01","01") LstDistritoNacimiento.DataTextField = "nombre" LstDistritoNacimiento.DataValueField = "idDistrito" LstDistritoNacimiento.DataBind() end if End Sub Sub LstDepartamentoNacimientoIndex_Changed(sender As Object, e As EventArgs) LstProvinciaNacimiento.DataSource = JalaProvincias(LstDepartamentoNacimiento.SelectedI tem.Value) LstProvinciaNacimiento.DataTextField = "nombre" LstProvinciaNacimiento.DataValueField = "idProvincia" LstProvinciaNacimiento.DataBind() LstDistritoNacimiento.DataSource = JalaDistritos(LstDepartamentoNacimiento.SelectedIt em.Value,LstProvinciaNacimiento.SelectedItem.Value ) LstDistritoNacimiento.DataTextField = "nombre" LstDistritoNacimiento.DataValueField = "idDistrito" LstDistritoNacimiento.DataBind() End Sub Sub LstProvinciaNacimientoIndex_Changed(sender As Object, e As EventArgs) LstDistritoNacimiento.DataSource = JalaDistritos(LstDepartamentoNacimiento.SelectedIt em.Value,LstProvinciaNacimiento.SelectedItem.Value ) LstDistritoNacimiento.DataTextField = "nombre" LstDistritoNacimiento.DataValueField = "idDistrito" LstDistritoNacimiento.DataBind() End Sub </SCRIPT> </HEAD> <body MS_POSITIONING="GridLayout"> <form id="Form1" method="post" encType="multipart/form-data" runat="server"> <asp:dropdownlist id="LstDistrito" style="Z-INDEX: 111; LEFT: 152px; POSITION: absolute; TOP: 272px" runat="server" Height="24px" Width="168px" AutoPostBack="true" OnSelectedIndexChanged="LstDistritoIndex_Changed"> </asp:dropdownlist> <asp:dropdownlist id="LstDepartamentoNacimiento" style="Z-INDEX: 116; LEFT: 264px; POSITION: absolute; TOP: 336px" runat="server" Height="32px" Width="144px" AutoPostBack="true" OnSelectedIndexChanged="LstDepartamentoNacimientoI ndex_Changed"></asp:dropdownlist> <asp:dropdownlist id="LstProvinciaNacimiento" style="Z-INDEX: 117; LEFT: 496px; POSITION: absolute; TOP: 336px" runat="server" Height="32px" Width="160px" AutoPostBack="true" OnSelectedIndexChanged="LstProvinciaNacimientoInde x_Changed"></asp:dropdownlist> <asp:dropdownlist id="LstDistritoNacimiento" style="Z-INDEX: 118; LEFT: 736px; POSITION: absolute; TOP: 336px" runat="server" Height="24px" Width="168px" AutoPostBack="true"></asp:dropdownlist> </form> </body> </HTML> ojala q lo haya depurado bien.. pero si me funciona!!! y todo en el mismo aspx... con el parametro de un combo pasa al otro y lo muestra y este a otro a su vez ojala te sirva... Dcastro. |
| ||||
DCastro no si se te diste cuenta que al cargar cada uno de tus combos crea una nueva pagina, me refiero a que si haces click en el boton atras, volveras a uno de tus combos, haber pruebalo......
__________________ Saludos desde el corazón de América.....BOLIVIA Da lo mejor de ti, que siempre será recompensado |