双击DBGrid标题栏排序

时间:2010-01-29 08:56:02  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:000" cellspacing="0" bordercolordark="#ffffff" cellpadding="5" width="99%" bgcolor="#e8ffe8" border="1">procedure TForm1.DBGrid1TitleClick(Column: TColumn);begin  if SortStyle=false then  begin    TADOQuery(TCustomADODataSet(ADOTable1)).Sort:=Column.FieldName+' ASC';
  正文:对点击DBGRID组件的标题栏,不能进行升序、降序排列,一直耿耿于怀好久了,终于
今天把它解决了,非常简单。
原理:TADOTable和TADOQuery的父类都是:TCustomADODataSet。
知道这个下面的代码你一看就会明白了:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
  if SortStyle=false then
  begin
    TADOQuery(TCustomADODataSet(ADOTable1)).Sort:=Column.FieldName+' ASC';
    SortStyle:=true;
  end
  else
  begin
    TADOQuery(TCustomADODataSet(ADOTable1)).Sort:=Column.FieldName+' DESC';
    SortStyle:=false;
  end;
end;

注:SortStyle是个全局变量,控制排序方式。初始化时将它赋个值。TRUE、FALSE无所谓的啦。
"双击DBGrid标题栏排序"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12573.html


关键字:

关于《双击DBGrid标题栏排序》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td