Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ListBox
Message
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Title:
Miscellaneous
Thread ID:
00870151
Message ID:
00870194
Views:
18
This message has been marked as the solution to the initial question of the thread.
Hola, Plinio.

>Me asalta una duda y quiero compartirla con ustedes para que me ayuden a resolverla:

¿Porqué comparte con nosotros un asalto??? 8-D

>Tengo un ListBox (List1) que se alimenta e una consulta Sql, este ListBox posee 2 columnas (Codigo y Descripcion), tengo otro ListBox (List2) vacio que se alimenta delList1
>
>Lo que quiero es, cuando de click en el List1, el registro entero debe aparecer en el List2.
>Mi codigo en el List1 es:

Mira la línea agregada en tu código:

>
>if this.listcount>0
> for j= 1 to this.listcount
>  if this.selected(j)
>   thisform.list2.additem(this.list(j,1))
    
    *** Mejor usar with/endwith ***
    thisform.list2.list( thisform.list2.NewIndex, 2) = this.list(j,2)

>   this.RemoveItem(j)
>   this.refresh
>  endif
> endfor
>endif
>
Saludos,
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform