Delphi DBGrid 怎样实现点击排序？

Question

begin
  try
    Database1.connected := true;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(--);    
    Query1.Open;
    DBGridAutoSize(DBGrid1);
  except
    showmessage('连接数据库失败！');
    Exit;
  end;
end;

Answer 1

dbgrid本身没有这个功能，要实现比较复杂，但Dbgrideh和CXgrid有这个功能。

Answer 2

如果是dbgridEh不用写代码就可以实现
dbgrid也行，利用ADOQuery.Sort属性进行排序，Column.Title.Caption可以加个三角符号DBGrid的onTitleClick事件:
if ADOQuery1.Sort<>(Column.FieldName+' ASC') then
   ADOQuery1.Sort:=Column.FieldName+' ASC'
else
   ADOQuery1.Sort:=Column.FieldName+' DESC';

Answer 3

不过，可以试着用cxGrid控件，很好很强大

Answer 4

网上搜搜，应该有例子的，不过，建议用ehlib好一些