Foros del Web » Programación para mayores de 30 ;) » .NET »

Error en el evento Leave

Estas en el tema de Error en el evento Leave en el foro de .NET en Foros del Web. hola a todos, tengo el siguiente codigo, que funciona, pero cuando digitas un codigo que no existe, en vez de reflejar el mensaje Código: MsgBox("Error ...
  #1 (permalink)  
Antiguo 11/11/2006, 12:35
Avatar de sagma  
Fecha de Ingreso: septiembre-2004
Ubicación: Santa Cruz de la Sierra - Bolivia
Mensajes: 136
Antigüedad: 20 años, 6 meses
Puntos: 1
Sonrisa Error en el evento Leave

hola a todos, tengo el siguiente codigo, que funciona, pero cuando digitas un codigo que no existe, en vez de reflejar el mensaje

Código:
MsgBox("Error en la carga", ex.Message, MsgBoxStyle.Critical)
me tira del programa, por supuesto con un mensaje:
Código PHP:
la convesion de la cadena "no hay ninguna fila en la posicion" al tipo 'integer' no es valida 
y me bota hasta afuera.

Código:
Private Sub txt_codigo_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_codigo.Leave
        Try
            If IsNumeric(Me.txt_codigo.Text) Then
                Dim Trx As New AccesoDatos.Transacciones(False)
                Dim Pn As New ReglasN_CarrMate.RN_CarrMate(Me.txt_codigo.Text, Trx.Comand)

                Me.txt_codcarre.Text = Pn.CCarrera
                Me.txt_codmate.Text = Pn.CMateria
                Me.cmb_plan.SelectedValue = Pn.CPlan
                Me.txt_nsa.Text = Pn.NivelNsa
                Me.cmb_estado.SelectedValue = Pn.Estado

                Dim CCa As New ReglasN_Carrera.RN_Carrera(Me.txt_codcarre.Text, Trx.Comand)
                Dim CMa As New ReglasN_Materia.RN_materia(Me.txt_codmate.Text, Trx.Comand)
                Me.txt_ccar.Text = CCa.CodCarre
                Me.txt_desc_carre.Text = CCa.Descripcion
                Me.txt_sigla.Text = CMa.Siglas
                Me.txt_desc_mate.Text = CMa.Descripcion

                Me.btn_adicionar.Enabled = False
                Me.btn_eliminar.Enabled = True
                Me.btn_modificar.Enabled = True

            End If
        Catch ex As Exception
            MsgBox("Error en la carga", ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
gracias
__________________
Sagma -- :arriba:
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 19:36.