在DBGridEh网格中实现排序及组合排序？？！！

Question

按标题如何实现排序，要不要写代码？

Answer 1

在Grid的TitleBtnClick事件中写入
 procedure TForm1.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
var
  SortStr: string;
begin
  if Column.Title.SortMarker = smDownEh then
    SortStr := Column.FieldName + ' ASC'
  else
    SortStr := Column.FieldName + ' DESC';
  TADODataSet(TDbGridEh(Sender).DataSource.DataSet).Sort := SortStr;
end;

Answer 2

同意：cg1120(代码最优化－§雪是冷的，人是暖的§) 
你想 组合排序，
if Length(Trim(SortStr)) > 0 then
   SortStr := Column.FieldName + ' ASC ,' + SortStr
else 
   SortStr := Column.FieldName + ' ASC '

Answer 3

使用Express的TAdvStringGrid非常方便。