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

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 grabriel,

1.Crear un cursor y asociarlo al listbox 2.
2. Poner un boton de agregar en tu formulario con tu codigo :

FOR i = 1 TO ThisForm.LstMulti.ListCount
IF ThisForm.LstMulti.Selected(i)
*!* thisform.List2.Value = ThisForm.LstMulti.List(i)
INSERT INTO MiCursor(Campo1);
VALUES (ThisForm.LstMulti.Selected(i))
ENDIF
NEXT

Saludos desde Peru,
Cesar

Podrías simplemente reemplazar el .value de:

ThisForm.List2.Value = ThisForm.lstMulti.List(i)

Por un addlistitem para que cada vez que hagas doble clic en el primer List, el elemento se pase al segundo List.

Saludos desde Lima
Guillermo

Gracias amigos por sus comentarios...

Haciendo unas pequeñas variaciones logre resolver mi problema...

Hasta la proxima.

atte.,

Gabriel