开发学院软件开发Delphi 当单击DBGrid中的标题栏时,进行排序 阅读

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

 2006-02-04 13:40:38 来源:WEB开发网   
核心提示: 方法:关键是用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;

Tags:单击 DBGrid 标题

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接