关于DBGridEh排序的问题，急急急！！！

Question

我看过2003-6-13 的一个帖子，使用dbgrideh应该如何改变排序方式（比如，第一次点击列标题安升序排，再点击就按降序排）。
 shengliqiang168(ValorSlq) 的回答是:
procedure TfrmSearchDlg.gdSelectTitleClick(Column: TColumn);
begin
//根据当前选择的列进行排序
  gdSelect.SetFocus;
  if btep then  //btep全局变量
  begin
  qryselect.Sort := Column.FieldName + ' ASC ';
  btep := false;
  end
  else
  begin
  qryselect.Sort := Column.FieldName + ' DESC ';
  btep := true;
  end;
end;我想问问：qryselect.Sort := Column.FieldName + ' DESC ';
  中的qryselect代表什么呢？

Answer 1

qryselect代表的是TDataSet的子类。如TAdoDataSet,TAdoQuery等

Answer 2

Dbgrideh1.optionseh.dghAutoSortMarking:=true;procedure TkcbbFrm.kcbbDBGTitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
var  SortString:String;
begin
  if Column.Title.SortMarker = smDownEh then
     SortString:= Column.FieldName+ ' ASC'
  else
     SortString:= Column.FieldName+ ' DESC';  TADODataSet(TDbGridEh(Sender).DataSource.DataSet).Sort:=SortString;
end;