
06/06/2006, 22:26
|
| | Fecha de Ingreso: mayo-2005
Mensajes: 274
Antigüedad: 19 años, 10 meses Puntos: 0 | |
AutoPostBack Hola amigos! Alguien puede explicarme por que no se dispara el evento lstasesores_SelectedIndexChanged de mi control dropdrowlist si este tiene la propiedad de AutoPostBack en true.
Observen el sig. codigo
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
CargarAsesores()
End If
End Sub
Public Function CargarAsesores()
Dim MyConnection As String
MyConnection = CStr(Application("SqlConnection"))
Dim Conn As New SqlConnection(MyConnection)
Dim cmdAsesores As New SqlCommand("MostrarAsesores", Conn)
cmdAsesores.CommandType = CommandType.StoredProcedure
Conn.Open()
lstasesores.Items.Clear()
Dim drAsesores As SqlDataReader
drAsesores = cmdAsesores.ExecuteReader
Do While drAsesores.Read
Dim Agregar As New ListItem
Agregar.Text = drAsesores("APELLIDO") & "," & " " & _
drAsesores("NOMBRE")
Agregar.Value = drAsesores("ID_ASESOR").GetType.ToString
lstasesores.Items.Add(Agregar)
Loop
drAsesores.Close()
Conn.Close()
End Function
Private Sub lstasesores_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstasesores.SelectedIndexChanged
Dim conn As String
conn = CStr(Application("SqlConnection"))
Dim con As New SqlConnection(conn)
Dim cmdMostrar As New SqlCommand("SeleccionarAsesor", con)
cmdMostrar.CommandType = CommandType.StoredProcedure
Dim parameterIdAsesor As New SqlParameter("@IdAsesor", SqlDbType.UniqueIdentifier, 16)
parameterIdAsesor.Direction = ParameterDirection.Input
parameterIdAsesor.Value = lstasesores.SelectedItem.Value.ToString
cmdMostrar.Parameters.Add(parameterIdAsesor)
con.Open()
Dim drMostrar As SqlDataReader
drMostrar = cmdMostrar.ExecuteReader
drMostrar.Read()
txtnombres.Text = drMostrar("NOMBRE")
txtapellidos.Text = drMostrar("APELLIDO")
txtprofesion.Text = drMostrar("PROFESION")
txtarea.Text = drMostrar("AREA")
txtresumen.Text = drMostrar("RESUMEN_CURRICULAR")
txttelefono.Text = drMostrar("TELF_OFICINA")
txtemail.Text = drMostrar("EMAIL")
drMostrar.Close()
con.Close()
pnlinvestigador.Visible = True
End Sub
Lo he corrido por linea, pero de igual manera no determino la causa del problema. Agradezco la ayuda que puedan proporcionarme
Gracias! |