Olá, no caso estou usando Ibquery + DataSource + IbqUpdateDataSet, funciona
mesmo assim? não testei pois estou sem o delphi nesse final de semana pois
estou viajando.
Grato
Rafael.
----- Original Message -----
From: Fabricio Colombo
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 20, 2010 5:59 PM
Subject: Re: [delphi-br] Ordenar clicando no título do dbgrid
Eu utilizo o código abaixo. Desse modo ele ordena de forma crescente e
decrescente. E com o Rubem falou, tem que usar o ClientDataSet.
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
enum_IndexOption: TIndexOptions;
str_IndexAsc,
str_IndexDesc,
str_IndexName: String;
begin
if (Column.Field.FieldKind = fkData) then
begin
str_IndexAsc := Concat('asc_',Column.FieldName);
str_IndexDesc := Concat('desc_',Column.FieldName);
str_IndexName := '';
enum_IndexOption := [];
if (ClientDataSet1.IndexName = str_IndexAsc) then
begin
str_IndexName := str_IndexDesc;
enum_IndexOption := [ixDescending];
end
else if (ClientDataSet1.IndexName = str_IndexDesc) then
begin
str_IndexName := str_IndexAsc;
end
else
begin
str_IndexName := str_IndexAsc;
end;
ClientDataSet1.IndexDefs.Clear;
ClientDataSet1.IndexDefs.Add(str_IndexName,Column.FieldName,enum_IndexOption);
ClientDataSet1.IndexName := str_IndexName;
end;
end;
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
