刚才在csdn看到这样的程序,当单击DBGrid中的标题栏时,进行排序
首先判断单击是哪一列, i:=Column.Index;然后要确定是哪个字段 Field:=DBGrid1.Columns[i].FieldName+' ASC';最后进行排序: qryWork.Sort:=Field; 上面仅仅是进行升序排列,若要添加降序排列,则要用' DESC'若要单击后,升序,再单击,降序.....则要用到一个奇偶判断我的一个例子(其中的bSort:Boolean,在FormShow的时候初始化)procedure TfmPlayVideo.DBGrid1TitleClick(Column: TColumn);
var
i:integer;
fieldname:string;
begin//排序
i:=Column.Index;
if bSort then
begin
fieldname:=DBGrid1.Columns[i].FieldName+' ASC';
bSort:=False;
end
else
begin
fieldname:=DBGrid1.Columns[i].FieldName+' DESC';
bSort:=True;
end;
qryShow.Sort:=fieldname;
end;请问其中的qrywork与qryshow引用的什么单元,谢谢!
首先判断单击是哪一列, i:=Column.Index;然后要确定是哪个字段 Field:=DBGrid1.Columns[i].FieldName+' ASC';最后进行排序: qryWork.Sort:=Field; 上面仅仅是进行升序排列,若要添加降序排列,则要用' DESC'若要单击后,升序,再单击,降序.....则要用到一个奇偶判断我的一个例子(其中的bSort:Boolean,在FormShow的时候初始化)procedure TfmPlayVideo.DBGrid1TitleClick(Column: TColumn);
var
i:integer;
fieldname:string;
begin//排序
i:=Column.Index;
if bSort then
begin
fieldname:=DBGrid1.Columns[i].FieldName+' ASC';
bSort:=False;
end
else
begin
fieldname:=DBGrid1.Columns[i].FieldName+' DESC';
bSort:=True;
end;
qryShow.Sort:=fieldname;
end;请问其中的qrywork与qryshow引用的什么单元,谢谢!
你也可以搜索以下,Search->Find In Files