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

poner valor de textbox en listbox

Estas en el tema de poner valor de textbox en listbox en el foro de .NET en Foros del Web. Hola Tengo 2 text box y quiero poner los textos q hay en ellos en un list box pero en la misma linea, como lo ...
  #1 (permalink)  
Antiguo 26/07/2006, 09:21
 
Fecha de Ingreso: mayo-2006
Mensajes: 110
Antigüedad: 18 años, 9 meses
Puntos: 0
poner valor de textbox en listbox

Hola
Tengo 2 text box y quiero poner los textos q hay en ellos en un list box pero en la misma linea, como lo hago?
  #2 (permalink)  
Antiguo 26/07/2006, 10:10
 
Fecha de Ingreso: mayo-2006
Mensajes: 110
Antigüedad: 18 años, 9 meses
Puntos: 0
concatenar valores en listbox

Bien, ya no necesito pasar valores de un textbox al list box xq el list lo lleno desde la BD, pero lo q si necesito es mostrar en una misma linea del listbox 2 campos de la tabla. Con esta rutina lleno el listbox

Private Sub lleLisDocumentos()
'' Llena el combo de Cuenta Bancaria
Dim cfin_t_ord_pag_par 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()
cfin_t_ord_pag_par = New clsfin_t_ord_pag_par
cfin_t_ord_pag_par.conexion = cnxDB
cfin_t_ord_pag_par.ordenaProp = "coddocordpag"

ds = cfin_t_ord_pag_par.consultar

Me.LisDocumentos.DataSource = ds.Tables(0)
Me.LisDocumentos.DisplayMember = "nomdocordpag "
Me.LisDocumentos.ValueMember = "coddocordpag"

ds = Nothing
cfin_t_ord_pag_par = Nothing
cnxDB.DesconectarDB()

Catch ex As System.Exception

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


End Sub
  #3 (permalink)  
Antiguo 28/07/2006, 17:19
Avatar de Maxi.Net  
Fecha de Ingreso: abril-2005
Ubicación: R.M. Talagante, Chile!!
Mensajes: 295
Antigüedad: 19 años, 10 meses
Puntos: 2
Hola
La verdad creo q mi solución modifica tu codigo.
usando tus mismos objetos, a diferencia de agregar un DataRow, lo haría asi:

...
Dim dtrFila as DataRow
Dim intIndice, intTotal as Integer

intTotal=Bindingcontext(ds,"Table").count-1 'Table es la tabla devuelta por la consulta a la cual haces referencia con un 0

intIndice=0
while intIndice <= IntTotal
dtrFila= Ds.Tables(0).row(intIndice)
Me.LisDocumentos.Item.Add(dtrFila.Item("CAMPO1") & dtrFila.Item("CAMPO2"))
intIndice+=1
loop

'La idea es que dentro de un bucle recorras el DataSet, su Tabla y los registros.
'El objeto DataRow contiene de uno en uno los registros de la tabla.
'intIndice incrementa el indice del registro dentro de la tabla.

saludos
__________________
Amtez de enpezar kom otro idioma,
escrivamos vien el nueztro i como corezpomde. Jracias.
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 12:38.