CLR: .Net / Mono / Boo / Otros CLR > VB .NET
Error En El Evento Leave
(1/1)
Sagma:
hola a todos, tengo el siguiente codigo que funciona cuando pilla el dato, pero cuando no pilla ningun datos me arroja el siguiente error: (el archivo jpg) <_<
este es el codigo que tengo:
--- Código: Text --- 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 :comp:
senzao18:
Pues a lo que veo el problema lo tienes en una de las clases que estas usando.....
Tendrias que depurar que haces cuando no trae registros por que a lo que dice el error estras tratando de convertir un mensaje X a integer jeje....
Ah olvide comentar que cuanto te marca la exception
"No hay ninguna fila en la posicion 0" es por que tratas de acceder ya sea a un datatable, dataview o datareader a el registro index 0 y este no cuenta con registros.... Tendrias que validar primero si por lo menos tienes un registro antes de acceder a ellos jeje...
Navegación
Ir a la versión completa