Concatenar datos de un combo

[Patricia Delbono]

Hola:
Ya he aprendido a concatenar los datos de dos text.
Que pasa si yo tengo los datos en un combo, en forma desplegable y quiero
que salgan concatenados en un text.
Se puede?
El combo despliega los datos
1
2
3
... y los quiero en un text
1 / 2 / 3

Gracias
Patricia

[juan]

dim i as integer, cadena as string
for i=0 to cboLista.Listcount-1
cadena=cadena & cboLista.List(i) & "/"
next
txtTexto.text=left(cadena,len(cadena)-1)

Post by Patricia Delbono
Ya he aprendido a concatenar los datos de dos text.
Que pasa si yo tengo los datos en un combo, en forma desplegable y quiero
que salgan concatenados en un text.
Se puede?
El combo despliega los datos
1
2
3
... y los quiero en un text
1 / 2 / 3
Gracias
Patricia

[Yuri Aponte]

Hola Patricia

suponiendo que tu combobox se llame combo1 y que tengas un textbox ( text1 )

Dim n As Integer
Combo1.AddItem ("HOLA1")
Combo1.AddItem ("HOLA2")
Combo1.AddItem ("HOLA3")
Combo1.AddItem ("HOLA4")
text1.text = ""
For n = 0 To Combo1.ListCount - 1
Text1.Text = Text1.Text & Combo1.List(n)
Next n
--
Saludos desde Lima, Peru

Yuri Aponte
Analista de Sistemas
yuriPUNTOaponteARROBAhotmailPUNTOcom

Post by Patricia Delbono
Ya he aprendido a concatenar los datos de dos text.
Que pasa si yo tengo los datos en un combo, en forma desplegable y quiero
que salgan concatenados en un text.
Se puede?
El combo despliega los datos
1
2
3
... y los quiero en un text
1 / 2 / 3
Gracias
Patricia

[Yuri Aponte]

Oppsss me olvide el "/" y un trim por si acaso

Text1.Text = Text1.Text & " / " & Trim(Combo1.List(n))

Tambien es buena la idea de Juan de concatenar todo en una cadena y luego
asignarla al textbox :-D
--
Saludos desde Lima, Peru

Yuri Aponte
Analista de Sistemas
yuriPUNTOaponteARROBAhotmailPUNTOcom

Post by Yuri Aponte
Hola Patricia
suponiendo que tu combobox se llame combo1 y que tengas un textbox ( text1 )
Dim n As Integer
Combo1.AddItem ("HOLA1")
Combo1.AddItem ("HOLA2")
Combo1.AddItem ("HOLA3")
Combo1.AddItem ("HOLA4")
text1.text = ""
For n = 0 To Combo1.ListCount - 1
Text1.Text = Text1.Text & Combo1.List(n)
Next n
--
Saludos desde Lima, Peru
Yuri Aponte
Analista de Sistemas
yuriPUNTOaponteARROBAhotmailPUNTOcom

Post by Patricia Delbono
Ya he aprendido a concatenar los datos de dos text.
Que pasa si yo tengo los datos en un combo, en forma desplegable y quiero
que salgan concatenados en un text.
Se puede?
El combo despliega los datos
1
2
3
... y los quiero en un text
1 / 2 / 3
Gracias
Patricia

[Saga]

Post by Yuri Aponte
Text1.Text = Text1.Text & Combo1.List(n)

Cuando concatenas asi VB destruye y crear cadenas a lo loco.

Una solucion mas optimizada es:


For i = 0 To Combo1.ListCount - 1
Text1.SelStart = Len(Text1.Text)
Text1.SelText = Combo1.List(i) & "/"
Next i

Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)

Claro si solo son 10 o 20 entrada en la lista, francamente cualquier
solucion es buena :-)

Saludos
Saga
--
Soluciones Para Mejorar
www.reset.com.mx

Post by Yuri Aponte
Hola Patricia
suponiendo que tu combobox se llame combo1 y que tengas un textbox ( text1 )
Dim n As Integer
Combo1.AddItem ("HOLA1")
Combo1.AddItem ("HOLA2")
Combo1.AddItem ("HOLA3")
Combo1.AddItem ("HOLA4")
text1.text = ""
For n = 0 To Combo1.ListCount - 1
Text1.Text = Text1.Text & Combo1.List(n)
Next n
--
Saludos desde Lima, Peru
Yuri Aponte
Analista de Sistemas
yuriPUNTOaponteARROBAhotmailPUNTOcom

Post by Patricia Delbono
Ya he aprendido a concatenar los datos de dos text.
Que pasa si yo tengo los datos en un combo, en forma desplegable y quiero que salgan concatenados
en un text.
Se puede?
El combo despliega los datos
1
2
3
... y los quiero en un text
1 / 2 / 3
Gracias
Patricia

[Yuri Aponte]

:-DDD . Asi es estimado amigo Saga... no uso combobox, sino datacombo, y
nunca he tenido la oportunidad de concatenar. Cuando lo he tenido que hacer
uso la opcion enviada por juan de hacerlo en una variable previa y luego la
asigno a donde quiera.

Hice el pequeñito ejemplo a Patricia, porque ella lo pinto asi. con tres
registros :-DDD

Pero igual siempre es bueno saber algo mas.. y tendre en claro tu comentario
sobre lo que hace el querido VB cuando intento concatenar directamente en el
control
--
Saludos desde Lima, Peru

Yuri Aponte
Analista de Sistemas
yuriPUNTOaponteARROBAhotmailPUNTOcom

Post by Saga

Post by Yuri Aponte
Text1.Text = Text1.Text & Combo1.List(n)

Cuando concatenas asi VB destruye y crear cadenas a lo loco.
For i = 0 To Combo1.ListCount - 1
Text1.SelStart = Len(Text1.Text)
Text1.SelText = Combo1.List(i) & "/"
Next i
Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)
Claro si solo son 10 o 20 entrada en la lista, francamente cualquier
solucion es buena :-)
Saludos
Saga
--
Soluciones Para Mejorar
www.reset.com.mx

Post by Yuri Aponte
Hola Patricia
suponiendo que tu combobox se llame combo1 y que tengas un textbox ( text1 )
Dim n As Integer
Combo1.AddItem ("HOLA1")
Combo1.AddItem ("HOLA2")
Combo1.AddItem ("HOLA3")
Combo1.AddItem ("HOLA4")
text1.text = ""
For n = 0 To Combo1.ListCount - 1
Text1.Text = Text1.Text & Combo1.List(n)
Next n
--
Saludos desde Lima, Peru
Yuri Aponte
Analista de Sistemas
yuriPUNTOaponteARROBAhotmailPUNTOcom

Post by Patricia Delbono
Ya he aprendido a concatenar los datos de dos text.
Que pasa si yo tengo los datos en un combo, en forma desplegable y
quiero que salgan concatenados en un text.
Se puede?
El combo despliega los datos
1
2
3
... y los quiero en un text
1 / 2 / 3
Gracias
Patricia