用关闭数据集-》select * from table1 order by ... -》 重打数据集
全局变量: var sorttype:string; ...... sorttype:='ASC'; ...... procedure TForm1.DBGrid1TitleClick(Column: TColumn); begin query1.sql.text:= 'select * from XXX order by+"'sorttype'"'; query1.open; if sorttype='ASC' then sorttype:='DSC' else sorttype='ASC'; end;
var
sorttype:string;
......
sorttype:='ASC';
......
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
query1.sql.text:= 'select * from XXX order by+"'sorttype'"';
query1.open;
if sorttype='ASC' then sorttype:='DSC' else sorttype='ASC';
end;