FoxPro/Visual FoxPro - Problema con ListBox

   
Vista:

Problema con ListBox

Publicado por Gabriel (406 intervenciones) el 04/12/2009 18:55:21
Que tal Amigos :

Estoy trabajando con 2 controles ListBox, el primero de ellos de nombre LstMulti toma los datos de una Tabla y ademas tiene activada la opcion Multiselect hasta aqui todo funciona correctamente.

El problema surge cuando deseo que aparezca en el 2do. ListBox llamado List2 aquellos items que fueron seleccionados del primer ListBox para luego grabarlos en una tabla.

Aqui les muestro el codigo que tengo puesto en el evento DobleClic del primer ListBox.

FOR i = 1 TO ThisForm.LstMulti.ListCount
IF ThisForm.lstMulti.Selected(i)
ThisForm.List2.Value = ThisForm.lstMulti.List(i)
ENDIF
NEXT

Espero sus comentarios y/o sugerencia.

atte.,

Gabriel
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema con ListBox

Publicado por Chucho (66 intervenciones) el 07/12/2009 16:35:33
Hola:
Modifique el codigo y creo que te va a servir ( puse el AddItem )

FOR i = 1 TO ThisForm.List1.ListCount
IF ThisForm.List1.Selected(i)
ThisForm.List2.AddItem( ThisForm.List1.List(i) )
ENDIF
NEXT

Saludos

Javier (Jujuy-Argentina)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con ListBox

Publicado por Gabriel (406 intervenciones) el 10/12/2009 15:30:28
Que tal amigo :

Gracias por tu sugerencia. Te contare que inicialmente estaba probandolo de esa forma pero encontre un defecto...Acumulaba los item seleccionados cuando empezaba a selecionar nuevamente...

Aqui la variante que utilize

THISFORM.List2.Clear && LISTBOX
FOR J = 1 TO THIS.ListCount
IF THIS.Selected(J)
THISFORM.List2.Additem(THIS.List(J))
ENDIF
ENDFOR

Como veras hay una pequeña diferencia y ahi estaba el detalle del problema..

Saludos y gracias nuevo.

Gabriel
(Lima-Perú)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar