2,498
社区成员
发帖
与我相关
我的任务
分享
procedure TEmp_F.dbgEmpTitleClick(Column: TColumnEh);
begin
if column.Title.SortMarker=smdowneh then
begin
qryEMP.Sort :=column.FieldName;
end else
begin
qryEMP.Sort :=column.FieldName + ' DESC';
end;
end;