FoxPro/Visual FoxPro - Limpiar un ListBox

Amigos,

Tengo un listbox que tiene que LIMPIARSE cada vez que presiono Nuevo o Cancel.

El asunto es que es que RowSourceType=2 (ALias) y al usar el Metodo ListBox.Clear no me funciona pues solo funciona para Rowsourcetype=0.

Lo que hice fue lo siguiente y deseo saber si es correcta la programacion asi:

En el Evento Click de Nuevo y Cancel
Thisform.ListBox.Rowsourcetype=0
Thisform.ListBox.Clear

Cuando necesito llenar el LIstbox desde un cursor (Al hacer un nuevo registro o ver uno anterior)
Select Campos from Tabla where XXX=YYY into Cursor ZZZ

thisform.ListBox.Rowsourcetype=2 (alias)
Thisform.Listbox.requery
Thisform.listbox.refresh

Funciona pero deseo saber si la forma de programar es correcta o si existe un Metodo para limpiar el ListBox cuando el SourceType es diferente de 0

Gracias


Victor Perez - Panama -

Buenos dias Victor:

Yo lo he hecho asi alguna vez en vez de modificar thisform.ListBox.Rowsourcetype

solo pondria.............


Select Campos from Tabla where XXX="algo no posible" into Cursor ZZZ
Thisform.Listbox.requery
Thisform.listbox.refresh


Espero te sirva...

Saludos
JAG

En vez del clear usa unicamente un refres algo así.

por ejemplo en el init del form ponle el tipo de datos que va a conetener en este caso un alias

Thisform.list1.rowsourcetype = 2

En el evento cancelar o limpiar seria algo asi
Thisform.list1.RowSource = ""
Thisform.list1.Refresh()
este codigo te lo debe dejar limpio y suponiendo que quieras cargar información de donde tu gustes te pongo un ejemplo solo para que veas como debería ser.

Thisform.list1.RowSource = ""
SELECT cod_barra FROM especialidad INTO CURSOR cien
Thisform.list1.RowSource = "cien.cod_barra"
Thisform.list1.Refresh()

los paréntesis después de un refresh son indispensables.

Saludos.

en programacion lo importante es que te funcione.

si te funciona asi perfecto, usalo y disfrutalo

HOLA,

Gracias por el consejo pero si no pongo Rowsourcetype=2 no funciona porque le list es alimentado desde un alias...

Si no le asignas type 2, entonces el list no se llena con la data.

Saludos

Andaba de curioso por en este foro y descubrí recién la pregunta en la cual se puntualiza lo siguiente:
1o. Clear únicamente sirve si has utilizado el ListBox subiendo los datos a través de additem.
2o. Si utilizas el ListBox a través de un alias con el datasource lo que debes limpiar es el origen y no justamente es listbox, ie. Si el origen es un cursor, pues elimina lo datos del cursor o recrealo y aplica un refresh si es SQL con un requery basta, etc.

Con respecto del comentario del compañero josé camilo, en donde dice que :

"en programacion lo importante es que te funcione.

si te funciona asi perfecto, usalo y disfrutalo"

No quisiera ver alguno de sus programas... definitivamente manda al cuerno la ingenieria del software, por ello no pude pasar por alto su opinión.

Saludos desde México.

mil gracias, funciono...

EXCELENTE AMIGO ME SALVASTE LA VIDA.