请问各位大虾:
我有一个GRID,里面有数据,我想实现一种效果:单击GRID里COLUMN1里的HEADER1后GRID里的数据自动按COLUMN1排序,该如何实现?
例如:GRID表里有序号,姓名,成绩三项内容,我想实现点击HEADER(序号)后表中的记录自动按序号排列.

表建立索引
将当前索引指向序号
就可以了
Select yourtable
ser order to xuhao
thisform.refresh

补充：
例如已经建立了序号.idx、姓名.idx、成绩.idx
USE student inde 序号,姓名,成绩

在表单上建立一GRID，RECORDSourcetype=0,recordsource=表名，在GRID各列的HEADER1的CLICK事件中写入THISFORM.sortt;
(THIS.PARENT.CONTROLSOURCE,RIGHT(ALLT(THIS.CAPTION),2),VAL(SUBSTRTHIS.PARENT.NAME,7,2)),;
this.Parent.Parent.Name,this.Parent.Parent.RecordSource)   &&**..字段名,升降序,第几列,表名,表名   
在FORM中新建一方法SORTT,代码如下：
LPARAMETERS   xfield,xsort,xcol,xgrid,xtable     &&**..字段名,升降序,第几列,表格名,表名   
  IF   PARAMETERS()<4   
  RETURN   .F.   
  ENDIF   
  SET   INDEX   TO   
  LOCAL   TEM1   
  IF   xsort='△'   
  SELECT   *   FROM   &xtable   ORDER   BY   &xfield   DESC   INTO   CURSOR   TEM1   
  ELSE   
  SELECT   *   FROM   &xtable   ORDER   BY   &xfield   ASC   INTO   CURSOR   TEM1   
  ENDIF   
  IF   _tally>0     
  SELECT   (xtable)   
  ZAP   
  APPEND   FROM   DBF('TEM1')   
  ELSE   
  RETURN     
  ENDIF     
  vst='thisform.'+xgrid   
  IF   !EMPTY(vst)   
  FOR   i=1   TO   &vst..COLUMNCOUNT       &&**..先去掉▽(△)再加△(▽)   
  st0=vst+'.COLUMN'+ALLT(STR(i))+'.HEADER1.CAPTION'   
  IF   AT(RIGHT(ALLT(&st0),2),"▽△")!=0   
  &st0.=LEFT(ALLT(&st0),LEN(ALLT(&st0))-2)   
  ENDIF   
  IF   i=xcol &&**..第几例   
  IF   AT(xsort,"▽△")=0.OR.xsort="▽"   
  &st0.=&st0+"△"   
  ELSE   
  &st0.=&st0+"▽"   
  ENDIF   
  ENDIF   
  ENDFOR   
  ENDIF   
  SELECT   (xtable)   
  THISFORM.refresh     
  SELECT   (xtable)   
  GO   TOP     
  THISFORM.refresh

[[it] 本帖最后由 ibmlang_002 于 2008-9-13 14:19 编辑 [/it]]

楼上两位，就一个复合索引文件，随表打开自动而打开。
整这么复杂！？

这是通用的，用不着索引文件。如果我有100个字段，你建100个索引吗？

[[it] 本帖最后由 ibmlang_002 于 2008-9-13 14:36 编辑 [/it]]

一个表即使有100个字段，未必都需要建立索引。
就是一个小土堆，一个小推车就解决问题，开来一辆大卡车，有必要吗？

同意wzxc，学习了。

呵呵，比喻得很好

不用索引又如何处理？100各字段是吧？仅当命令用用，一行 index on 结了，生成索引文件，可以删除也可以覆盖，随手将来，有何不可？！