>ThisForm.ChangeGridOrderBy(1) >*Parameter is based on the column the header is contaned in. i.e. Column2 parameter would be 2, ... > >>
>LParameters tnOrderBy > >If VarType(tnOrderBy) <> "N" Or tnOrderBy < 0 Then > Return >EndIf > >If ThisForm.OrderBy = tnOrderBy Then > Return >EndIf > >ThisForm.MousePointer = 11 >ThisForm.LockScreen = .T. > >ThisForm.OrderBy = tnOrderBy > >ThisForm.RequeryView() > >ThisForm.Refresh() > >ThisForm.LockScreen = .F. >ThisForm.MousePointer = 0 > >