在DBGrid上单击Title怎样按该字段数据排序?
发布网友
发布时间:2023-03-19 01:41
我来回答
共1个回答
热心网友
时间:2023-11-13 20:45
在这段代码中还必须加一个标识,用于判断已经是升序了,还是降序了:
if
(tadodataset(DataSource.DataSet).Sort=fieldname)
and
(is_desc)
then
begin
tadodataset(DataSource.DataSet).Sort:=fieldname
is_desc:=false;
end
else
begin
tadodataset(DataSource.DataSet).Sort:=fieldname+'
DESC';
is_desc:=true;
end;