关于DBGridEh排序的问题,急急急!!!

waller 2003-09-29 03:25:48
我看过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代表什么呢?
...全文
54 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ujjcel 2003-11-19
  • 打赏
  • 举报
回复
up
azsoft 2003-10-31
  • 打赏
  • 举报
回复

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;
zerolx 2003-10-31
  • 打赏
  • 举报
回复
qryselect代表的是TDataSet的子类。如TAdoDataSet,TAdoQuery等

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧