DBGridEh+ADO熟悉的高手进

Question

控件及命名如下：
qyHed:TADOQuery;
dsHed:TDataSource;
grd:TDBGridEh;
相互都已经关联好。问题是这样的：
qyHed有Sort属性对吧，dsHed的DataSet是qyHed，我想写一个过程传入grd，过程里有内容：
qyHed.Sort....
而我象这样：
grd.DataSource.DataSet.Sort显然不行，各位高手有什么办法吗？
不知道我说明白了没？

Answer 1

如果你想对字段排序就qyHed.sort:='...' 就行啦!

Answer 2

  qyHed.Sort :='Name';    
  grd.Columns[6].Title.sorter := smUpEh; // or smDownEh

Answer 3

难道没人看懂我的意思？
例：
procedure Sort(grd:TDBGridEh;qyHed:TAdoQuery);
begin
  ...
  qyHed.Sort:=...
end;
我现在能不能不传qyHed,直接传入grd一个参数达到我想要的目的：
procedure Sort(grd:TDBGridEh);
begin
  ...
  grd.DataSource.DataSet.Sort:=...   //错误
end;
有没有办法只传一个参数达到我的目的？？？

Answer 4

问这个问题的目的是为了看能不能简化我网格排序的代码，相信用DBGridEh的朋友应该对其排序有接触吧？