博客给出了一段代码，在DBGrid标题点击事件中，根据全局布尔变量Si的值，决定按升序或降序对ADOQuery（qryTemp）进行排序，排序字段为点击列的字段名，最后切换Si的值。
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
s: string;
begin
//Si是一个全局的boolean 变量
//qryTemp是一个ADOQuery.
if Si then
s := Column.FieldName + ' ASC'
else
S := Column.FieldName + ' DESC';
qryTemp.Sort := s;
Si := not Si;
end;
var
s: string;
begin
//Si是一个全局的boolean 变量
//qryTemp是一个ADOQuery.
if Si then
s := Column.FieldName + ' ASC'
else
S := Column.FieldName + ' DESC';
qryTemp.Sort := s;
Si := not Si;
end;
扫一扫
5万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
