ADOQuery1.DisableControls; caption:=Column.FieldName; with ADOQuery1 do begin Close; SQL.Clear; if Up then SQL.Add('Select * from 表 order by '+caption+' desc') else SQL.Add('Select * from 表 order by '+caption+' asc'); Open; end; ADOQuery2.EnableControls;
caption:=Column.FieldName;
with ADOQuery1 do begin
Close;
SQL.Clear;
if Up then
SQL.Add('Select * from 表 order by '+caption+' desc')
else
SQL.Add('Select * from 表 order by '+caption+' asc');
Open;
end;
ADOQuery2.EnableControls;