FoxPro/Visual FoxPro - Ordenar GRID Ascendente y Descendente

SET ORDER TO 1

SET ORDER TO 2

if sworde=0

  set orde to 1

  sworde=1

else

  set orde to 2

  sworde=0

endif

* Crear cursor.

create cursor cPersonal(codigo c(5), apellidos c(50), nombres c(50))

* Indexar.

index on codigo tag xcodigo

index on apellidos tag xapellidos

index on nombres tag xnombres

* Programaren los headers(Click)

*-----------------------------------------------------------------------------------

* column1.header1.click()

*

*  Inicializar la propiedad Tag de cada header con la letra 'A'

*----------------------------------------------------------------------------------

select cPersonal

if This.Tag = 'A'

   set order to xcodigo desc

   This.Picture = 'imagen descendente'  && Cualquier imagen referente.

   This.Tag = 'D'

else

   set order to xcodigo asc

   This.Picture = 'imagen ascendente'

   This.Tag = 'A'

endif

go top

This.Parent.Parent.Refresh()

CASE xesc<>'' AND xdep<>'' AND xcat='' AND xedad=''

SELECT item,codalum,edad,dep,esc,esc_dist,esc_prov,cat,apepat,apemat,nom,dni FROM Alumnos WHERE Esc = xEsc AND Dep = xDep ORDER BY 9 INTO CURSOR csrTemp READWRITE

INDEX on Codalum TAG oCodalum

IF 	This.Tag = 'A'

	SET ORDER to oCodalum DESCENDING

	This.Picture = 'Descendente.png'

	This.Tag = 'D'

ELSE

	SET ORDER TO oCodalum ASCENDING

	This.Picture = 'Ascendente.png'

	This.Tag = 'A'

ENDIF

GO TOP

This.Parent.Parent.Refresh()

IF This.Tag = 'A'

SET ORDER to oCodalum DESCENDING

This.Picture = 'Descendente.png'

This.Tag = 'D'

ELSE

SET ORDER TO oCodalum ASCENDING

This.Picture = 'Ascendente.png'

This.Tag = 'A'

ENDIF

GO TOP

This.Parent.Parent.Refresh()

Select insumos

Set order to descripcion descending

goto top

thisform.refresh

Select insumos

Set order to Id_insumo ascending

goto top

thisform.refresh