>hi,
>It is for display in the grid to reverse the order . ANy better way u know off ?
>
>It would really help
>
>thanx
>
>suhashegde

Maybe not 100% bullet proof, but this function works for my needs

Function ShiftOrder && "Do shiftorder" or "Do Shiftorder with MytableAlias" to change direction
Lparameters lxAlias
Local lcCurrent
lcCurrent=Select()
If Pcount()>0
  lcAlias=Alias(lxAlias)
Else 
  lcAlias=Alias()
Endif 
If Empty(lcAlias)
  Return .F.
Else
  Select (lcAlias)
  If 'DESCENDING'$Set('order')
    Set Order To (Tag())
  Else 
    Set Order To (Tag()) Descending 
  Endif 
Endif 
Select (lcCurrent)
Return