Delphi 7 中DBGrid的排序

最新推荐文章于 2024-03-01 21:43:27 发布

清风古韵

最新推荐文章于 2024-03-01 21:43:27 发布

阅读量907

点赞数

分类专栏： delphi程序设计

本文链接：https://blog.csdn.net/ttpage/article/details/9161721

版权

delphi程序设计专栏收录该内容

48 篇文章 2 订阅

订阅专栏

procedure TfrmTraceReport.DBGrid1TitleClick(Column: TColumn);
var
  SortField, FieldTitle: string;
begin

  SortField := Column.Field.FieldName;
  FieldTitle := Column.Title.Caption;
  ShowMessage(SortField + '    ' + FieldTitle);

  if Pos('▲', FieldTitle) > 0 then
  begin
    ConnectDM.ADOQryTraceReport.Sort := SortField + ' ASC';
    FieldTitle := StringReplace(FieldTitle, '▲', '▼', [rfReplaceAll]);
  end
  else if Pos('▼', FieldTitle) > 0 then
  begin
    ConnectDM.ADOQryTraceReport.Sort := SortField + ' DESC';
    FieldTitle := StringReplace(FieldTitle, '▼', '▲', [rfReplaceAll]);
  end
  else
  begin
    ConnectDM.ADOQryTraceReport.Sort := SortField + ' DESC';
    FieldTitle := FieldTitle + '▼';
  end;

  DBGrid1.Columns[Column.Index].Title.Caption := FieldTitle;

end;