Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
SELECT TheTable
SET ORDER TO TheTag ASCENDING
this.lAscending = .T.
SELECT TheTable
lcDirection = IIF(this.lAscending, "ASCENDING", "DESCENDING")
SET ORDER TO TheTag &lcDirection
this.lAscending = NOT this.lAscending
SELECT TheTable
lcDirection = IIF(this.lAscending, "ASCENDING", "DESCENDING")
lcPic = IIF(this.lAscending, "up.bmp", "down.bmp")
SET ORDER TO TheTag &lcDirection
this.column1.header1.picture = lcPic
this.lAscending = NOT this.lAscending
this.SetFocus
As Headers are child objects of grids, it will be This.Parent.SetFocus() within the Header.Click() event.