请问DBGRIDEH 中如何点击列名实现自动排序？分不多，还请大家帮帮忙

Question

我在enoption 中autosorting =true
   column titlebutton true
但是点击列名后，排序的小箭头出现，数据却并未排序
titlebtnclick 中应该怎么写？
大家帮帮忙啊

Answer 1

支持查询式，不支持dataset，所以要使用query控件，另外，将ehlibado（使用ado）或ehlibbde(使用BDE)的加进去

Answer 2

这样！你去下载一个Ehlib这个控件，它对你所要求的东西支持非常好，很多做MIS开发的都在用它！

Answer 3

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
   Str:=Column.Title.Caption;
   if Adoquery1.Sort=Column.FieldName +' ASC ' then
      Adoquery1.Sort:=Column.FieldName +' DESC '   //a
   else
      Adoquery1.Sort:= Column.FieldName +' ASC ';   //b
end;

Answer 4

先设一个全局变量FSort：String;procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var CTStr:String;
begin
  CTStr:=Column.Title.Caption;
  if (FSort='ASC') or (FSort='') then
    begin
    ADODateSet1.Sort:=Column.FieldName + ' ASC';
    Column.Title.Caption:=CTStr+'▲';
    FSort:='ASC';
    end
  else
    begin
    ADODateSet1.Sort:=Column.FieldName + ' DESC';
    Column.Title.Caption:=CTStr+'▼';
    FSort:='DESC';
    end;
end;