Código:
me tira del programa, por supuesto con un mensaje:MsgBox("Error en la carga", ex.Message, MsgBoxStyle.Critical)
Código PHP:
la convesion de la cadena "no hay ninguna fila en la posicion" al tipo 'integer' no es valida
Código:
gracias 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
