点击DBGRID的TITLE按钮,分别按’升序‘和’降序‘排列数据,降序的怎么做?解决了一定给分!!!
「已注销」 2003-08-18 04:15:49 点击DBGRID的TITLE按钮,分别按’升序‘和’降序‘排列数据,其它列不做排序,也不显示排序状态标记,但”降序“的怎么做?解决了一定给分!!!
self.L_strcaption保存TITLE的
self.L_b_order 保存排序状态
self.ClientDataSet1.IndexFieldNames:= column.fieldname;
begin
if trim(self.L_strcaption)='' then self.L_strcaption:= Column.Title.Caption;
if self.L_b_order then
begin
column.Title.Caption := self.L_strcaption+' ▲';//加排序状态标记
self.L_b_order:=false;
end
else
begin
column.Title.Caption := self.L_strcaption+' ▼';//加排序状态标记
self.L_b_order:=true;
end;
end;