1. 排序作过, 例:
procedure TfrmDZW05.dbg_SHOHINTitleClick(Column: TColumn);
begin
if sOrder = ' ORDER BY ' + Column.FieldName
then sOrder := sOrder + ' DESC'
else if sOrder <> ' ORDER BY ' + Column.FieldName then
sOrder := ' ORDER BY ' + Column.FieldName;
p_Sqlqry;
end;
