关闭

点击Ehlib中DbGridEh控件的title排序

1375人阅读 评论(0) 收藏 举报
点击Ehlib中DbGridEh控件的title排序
提交日期:2004-4-3  
关键词:Ehlib DbGridEh 排序 
在dbgrideh中直接点击title就可按点击的那个字段排序的方法

第一种方法(未测试)
procedure TForm1.DBGridEh1TitleClick(Column: TColumnEh);
begin
 //点击GridEh标题排序
 if (Column.Title.SortMarker = smNoneEh) or (Column.Title.SortMarker = smDownEh) then
   begin
     ADOQuery1.SORT := COLUMN.FIELDNAME;
     Column.Title.SortMarker := smUpEh
   end
 else
   begin
     ADOQuery1.SORT := COLUMN.FIELDNAME + ' DESC';
     Column.Title.SortMarker := smDownEh
   end;
end;

第二种方法(未测试)
procedure TPrintMai_frm.DBGridEh1TitleClick(Column: TColumnEh);
var
 sortstring: string;
begin //进行排序
 with Column do
 begin
   if FieldName = '' then
     Exit;
   case Title.SortMarker of
     smNoneEh:
       begin
         Title.SortMarker := smDownEh;
         sortstring := Column.FieldName + ' ASC';
       end;
     smDownEh: sortstring := Column.FieldName + ' ASC';
     smUpEh: sortstring := Column.FieldName + ' DESC';
   end; //数据集排序。
   try
     DM.DataModule1.qry2.Sort := sortstring //dataset为实际数据集变量名
   except
   end;
 end;
end;  

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:210105次
    • 积分:2433
    • 等级:
    • 排名:第15795名
    • 原创:52篇
    • 转载:45篇
    • 译文:0篇
    • 评论:10条
    最新评论