查看完整版本: dbgrideh如何实现点击标题排序

dbgrideh如何实现点击标题排序

数据源为adoQuery
1、首先设置dbgrideh里需要排序的字段的title->titlebutton属性为true

2、设置dggrideh的optionseh->dbhautosortmarking属性为true

3、在dbgrideh的ontitlebuttonclick事件里面判断。

procedure Tfrmmain.dbgGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
      if column.Title.SortMarker=smdowneh then
         adoQuery1.Sort :=column.FieldName
   else
         adoQuery1.Sort :=column.FieldName  ' DESC';
end;