Pessoal,
Estou tentando ordenar os registros de um DbGrid ligado a um ClientDataset. Se
ordenar pela primeira vez de modo Ascendente, não consigo ordenar novamente de
modo Descendente e vice-versa. A ordenação continua sempre pelo modo que foi
feito pela primeira vez. Abaixo o código:
procedure TfrmTerminalCaixa.dbgLancamentosTitleClick(Column: TColumn);
var bDesc : Boolean;
begin
bDesc := Column.FieldName = cdsLancamentos.IndexName;
cdsLancamentos.IndexDefs.Clear;
with cdsLancamentos.IndexDefs.AddIndexDef do
begin
Name := Column.FieldName;
Fields := Column.FieldName;
if bDesc then
Options := [ixDescending]
else
Options := [];
end;
cdsLancamentos.IndexName := Column.FieldName;
end;
[As partes desta mensagem que não continham texto foram removidas]
