Ver Mensaje Individual
  #1 (permalink)  
Antiguo 01/08/2006, 16:31
seques
 
Fecha de Ingreso: mayo-2006
Mensajes: 110
Antigüedad: 18 años, 9 meses
Puntos: 0
asignar valor de combobox a textbox

resulta tengo un combobox lleno con los registros de una base de datos.

tengo la tabla con estos campos
cod, nom, consec, tipo, numero
el combo muestra el nombre(nom) pero resulta que quiero que se muestre en un texbox el consec asociado al nombre seleccionado en el combo.
este es parte del code

Private Sub llecmbDocOrdPag()
'' Llena el combo de Tipo de Comprobante
Dim cDocOrdPag As clsfin_t_ord_pag_par
Dim ds As DataSet
Dim cnxDB As clsConexion

Try
cnxDB = New clsConexion
cnxDB.Login = Me.loginProp
cnxDB.Password = Me.passwordProp
cnxDB.Servidor = Me.servidorProp
cnxDB.BaseDatos = Me.baseDatosProp
cnxDB.ConectarDB()
cDocOrdPag = New clsfin_t_ord_pag_par
cDocOrdPag.conexion = cnxDB
cDocOrdPag.ordenaProp = "coddocordpag"

ds = cDocOrdPag.consultar

Me.cmbDocOrdPag.DataSource = ds.Tables(0)
Me.cmbDocOrdPag.DisplayMember = "nom"
Me.cmbDocOrdPag.ValueMember = "cod"

ds = Nothing
cDocOrdPag = Nothing
cnxDB.DesconectarDB()

Catch ex As System.Exception

Dim basErrores As New basErroresv100
basErrores.txtModulo.Text = Me.Name
basErrores.txtError.Text = "Error Cargando Combo de Documentos"
basErrores.txtDetalle.Text = ex.Message
basErrores.ShowDialog()
Me.Close()
End Try

End Sub

y en el evento cmbDocOrdPag_SelectedindexChanged hago
Me.txtConsecutivo.Text = CStr(Me.cmbDocOrdPag.SelectedValue)

me sale error al cargar el form donde esta el combo:"La conversion del tipo datarowview al tipo string no es valida" .