一个grid由几个column组成,每个column都有header,header支持click事件,可以通过下面代码来给列表头排序,
IF this.Caption = 'Name↓' then
SET ORDER TO 'name' ascending
this.Caption = 'Name↑'
ELSE
SET ORDER TO 'name' descending
this.Caption = 'Name↓'
ENDIF
GO top
thisform.Refresh()
IF this.Caption = 'Name↓' then
SET ORDER TO 'name' ascending
this.Caption = 'Name↑'
ELSE
SET ORDER TO 'name' descending
this.Caption = 'Name↓'
ENDIF
GO top
thisform.Refresh()