FoxPro/Visual FoxPro - Problema con ListBox

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

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)

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ú)