当单击DBGrid中的标题栏时,进行排序

核心提示： 方法:关键是用DBGrid的事件 OnTitleClick首先判断单击是哪一列, i:=Column.Index;然后要确定是哪个字段 Field:=DBGrid1.Columns[i].FieldName+' ASC';最后进行排序: qryWork.Sort:=Field;上面仅仅是进行升序排

 

方法:

关键是用DBGrid的事件 OnTitleClick

首先判断单击是哪一列,

i:=Column.Index;

然后要确定是哪个字段

　  Field:=DBGrid1.Columns[i].FieldName+' ASC';

最后进行排序:

　  qryWork.Sort:=Field;

上面仅仅是进行升序排列,若要添加降序排列,则要用' DESC'

若要单击后,升序,再单击,降序.....

则要用到一个奇偶判断

我的一个例子

(其中的bSort:Boolean,在FormShow的时候初始化)

PRocedure TfmPlayVideo.DBGrid1TitleClick(Column: TColumn);
var
　  i:integer;
　  fieldname:string;
begin//排序
　  i:=Column.Index;
　  if bSort then
　  begin
　　　  fieldname:=DBGrid1.Columns[i].FieldName+' ASC';
　　　  bSort:=False;
　  end
　  else
　  begin
　　　  fieldname:=DBGrid1.Columns[i].FieldName+' DESC';
　　　  bSort:=True;
　  end;
　  qryShow.Sort:=fieldname;
end;