FoxPro/Visual FoxPro - Problema con ListBox

   
Vista:

Problema con ListBox

Publicado por Gabriel (406 intervenciones) el 04/12/2009 18:48:33
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
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 Cesar (63 intervenciones) el 04/12/2009 23:44:43
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
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 Guillermo Arias (297 intervenciones) el 06/12/2009 16:44:00
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
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 07/12/2009 21:11:25
Gracias amigos por sus comentarios...

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

Hasta la proxima.

atte.,

Gabriel
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