急!!!在VFP6里的 Grid控件, 如何做单击列,就对该列进行排序?

[YYMMVV]

如:
-------------------------------------------------------------------------------------------------------------
姓名 | 性别 | 电话 |地址|
-----------------------------------
aa | boy | 818 | 12 |
bb | boy | 828 | 13 |
cc | boy | 838 | 14 |
dd | boy | 848 | 15 |
ee | boy | 858 | 16 |
ff | boy | 868 | 17 |
-----------------------------------
当单击第一行的姓名列的时候,按升序排序,或降序排序.

请问如何做???

谢了...

[dyming0410]

xiolig(凌霄) 说得对！

[kinlzy]

在Grid的Header的Click中写代码

Select * From 表名 Order By 字段名

[whint]

楼上的小小鹰说的不错。我补充两句。你可以先设定你需要显示的列数，也就是columncount属性，之后可以对每一个column对象的header对象的click事件进行编程。很方便的

[hnpyz]

补充：
先应该设置一逻辑变量（全局）

在上面所提到的事件中：
if 逻辑变量
执行升序
逻辑变量 =.F.
else
执行降序
逻辑变量 =.T.
endi
ThisForm.Refresh()

[jiaxingxing]

这种做法好像只能用于查询，而修改数据时是怎么办？

[augustX]

in column header click events you can write:


do case
case thisform.tag==''
thisform.tag='ASCENDING'
this.tag=this.caption
this.caption=this.tag+' ↑'
case thisform.tag=='ASCENDING'
thisform.tag='DESCENDING'
this.caption=this.tag+' ↓'
case thisform.tag=='DESCENDING'
thisform.tag='ASCENDING'
this.caption=this.tag+' ↑'
endcase
l_para=alltrim(this.parent.controlsource)
index_command='index on '+l_para+' tag temp_index '+thisform.tag
&index_command
this.parent.parent.refresh()

[jiaxingxing]

呵呵，捡漏的来的不少。捡分来了

[xiolig]

如果 GRID 的记录源是查询，加上 ORDER BY 子句重新查询（同上）；
如果 GRID 的记录源是原始数据表，可以考虑建立索引：
永久索引，使用 SET ORDER TO TAG ...
临时索引，使用 INDEX ON ... TO ...