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

方法:

关键是用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; 数据挖掘实验室

  数据挖掘研究院