再titleclick事件中//如果选用AdoDataSet(AdoTable,AdoQuery等)可以使用
with Column do
if Field <> nil then
if Field.DataSet is Tadodataset then
with Field.DataSet as Tadodataset do
if active then
begin
if tag = 0 then
begin
sort := '';
tag := 1;
end
else if tag = 1 then
begin
sort := column. fieldname + ' DESC';
tag := 2;
end
else
begin
sort := Column.FieldName + ' ASC';
tag := 0;
end;
end;