Problema con TabControl
Publicado por Zarina (13 intervenciones) el 14/12/2005 15:07:36
Hola:
Tengo un problema con un formulario que usa un TabControl, pasa de que cuando cambio de fichas y no he seleccoinado nada en los combobox, estos no sé porque jalan datos a los textbox,lo que he hecho es algo así:
'En el load de para que carguen los datos del combo
Private Sub FrmDUA_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.DtpFecha.Value = Now
'Cargando el CboDescRegi
Me.CboDescRegi.DataBindings.Clear()
Me.CboDescRegi.DataSource = Nothing
Me.CboDescRegi.DisplayMember = String.Empty
Me.CboDescRegi.ValueMember = String.Empty
Me.CboDescRegi.Items.Clear()
dsRegimen = ObjRegimen.ListarRegimen(conexion)
Me.CboDescRegi.DataSource = dsRegimen.Tables("REGIMEN")
Me.CboDescRegi.DisplayMember = "DESC_REGI"
Me.CboDescRegi.ValueMember = "CODI_REGI"
End Sub
'Y si no pongo esta parte en el evento BindiingContextChanged del combo, me slae un error de System.DataRowView o algo así
Private Sub CboDescRegi_BindingContextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CboDescRegi.BindingContextChanged
Me.CboDescRegi.DataSource = dsRegimen.Tables("REGIMEN")
Me.CboDescRegi.DisplayMember = "DESC_REGI"
Me.CboDescRegi.ValueMember = "CODI_REGI"
End Sub
'Y para que el campo seleccionado muestre un dato en el text
Private Sub CboDescRegi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboDescRegi.SelectedIndexChanged
Me.TxtCodiRegi.Text = CStr(Me.CboDescRegi.SelectedValue)
End Sub
Alguien sabe qué estoy haciendo mal??
Muchas gracias de antemano.
Tengo un problema con un formulario que usa un TabControl, pasa de que cuando cambio de fichas y no he seleccoinado nada en los combobox, estos no sé porque jalan datos a los textbox,lo que he hecho es algo así:
'En el load de para que carguen los datos del combo
Private Sub FrmDUA_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.DtpFecha.Value = Now
'Cargando el CboDescRegi
Me.CboDescRegi.DataBindings.Clear()
Me.CboDescRegi.DataSource = Nothing
Me.CboDescRegi.DisplayMember = String.Empty
Me.CboDescRegi.ValueMember = String.Empty
Me.CboDescRegi.Items.Clear()
dsRegimen = ObjRegimen.ListarRegimen(conexion)
Me.CboDescRegi.DataSource = dsRegimen.Tables("REGIMEN")
Me.CboDescRegi.DisplayMember = "DESC_REGI"
Me.CboDescRegi.ValueMember = "CODI_REGI"
End Sub
'Y si no pongo esta parte en el evento BindiingContextChanged del combo, me slae un error de System.DataRowView o algo así
Private Sub CboDescRegi_BindingContextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CboDescRegi.BindingContextChanged
Me.CboDescRegi.DataSource = dsRegimen.Tables("REGIMEN")
Me.CboDescRegi.DisplayMember = "DESC_REGI"
Me.CboDescRegi.ValueMember = "CODI_REGI"
End Sub
'Y para que el campo seleccionado muestre un dato en el text
Private Sub CboDescRegi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboDescRegi.SelectedIndexChanged
Me.TxtCodiRegi.Text = CStr(Me.CboDescRegi.SelectedValue)
End Sub
Alguien sabe qué estoy haciendo mal??
Muchas gracias de antemano.
Valora esta pregunta


0