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

最新推荐文章于 2020-04-06 17:52:11 发布

原创最新推荐文章于 2020-04-06 17:52:11 发布 · 918 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #string

delphi 专栏收录该内容

5 篇文章

订阅专栏

博客介绍了使用DBGrid的OnTitleClick事件实现列排序的方法。先判断单击的列，确定对应字段，进行升序排列。若要添加降序排列，使用 'DESC'。还给出了单击实现升序、降序切换的例子，通过奇偶判断实现。

方法:

关键是用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;