处理dbgridtitleclick事件：
procedure Tf_cpjg.DBGrid1TitleClick(Column: TColumn);
begin
if pos('DESC',t1.Sort)=0 then
t1.sort:=Column.Field.FieldName+' DESC'
else
t1.Sort:=Column.Field.FieldName+' ASC'
end;
1.lmqlyn的方法最简单
2。首先得到该列的字段名field:=Column.Field.FieldName
然后得到具体值condition:=adodataset.fields[field].value;
查询'select * from table where '+ field+' like '''+condition+''%'';
哈哈，我刚解决这个问题，给全分啊:
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var desf:String; i:integer;
begin
with ClientDataSet1.IndexDefs do
begin
i:=ClientDataSet1.IndexDefs.IndexOf('dataset_index');
if i>=0 then
if ClientDataSet1.IndexDefs.Items.Fields=Column.FieldName then
if ClientDataSet1.IndexDefs.Items.DescFields='' then
desf:=Column.FieldName;
Clear;
with AddIndexDef do
begin
Name:='dataset_index';
Fields:=Column.FieldName;
DescFields:=desf;
end;
end;
if ClientDataSet1.IndexName='dataset_index' then
ClientDataSet1.DeleteIndex('dataset_index');
ClientDataSet1.IndexName:='dataset_index';
end;
