精华区 [关闭][返回]
当前位置：网易精华区>>讨论区精华>>编程开发>>● Delphi>>数据库技术>>关于TDBGrid的使用>>Re:Delphi5中如何点击Dbgrid的title排序？

主题：Re:Delphi5中如何点击Dbgrid的title排序？
发信人: lzdxty()
整理人: huxley(2001-12-17 20:13:49), 站内信件
procedure TIPQC.DBG2TitleClick(Column: TColumn);
begin
   if query1.Active=true then begin
      if dbg2.Tag=0 then begin
         query1.Sort:=column.FieldName+' ASC';
         dbg2.Tag:=1;
      end
      else begin
         query1.Sort:=column.FieldName+' DESC';
         dbg2.Tag:=0;
      end;
   end;
end;

可根据标题列排序，每列均可，可交替
[关闭][返回]