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;
Delphi 7 中DBGrid的排序。
最新推荐文章于 2024-03-01 21:43:27 发布