Como ordenar dados clicando na coluna do DBGrid?
Bom dia,
Preciso ordenar os dados clicando na coluna do dbgrid, se clicar em nome, ordena por nome, se clicar em fone, ordena por fone...
Como faço esta rotina?
Valew
Preciso ordenar os dados clicando na coluna do dbgrid, se clicar em nome, ordena por nome, se clicar em fone, ordena por fone...
Como faço esta rotina?
Valew
Seu_madruga
Curtidas 0
Respostas
Rodolpho123
02/06/2005
Se vc estiver utilizando ClientDataSet, faça:
Ao clicar no título da coluna, ela vai ordernar pelo campo da coluna
procedure TForm1.DBGrid1TitleClick(Column: TColumn); begin ClientDataSet1.IndexFieldNames := Column.FieldName; end;
Ao clicar no título da coluna, ela vai ordernar pelo campo da coluna
GOSTEI 0
Eurismar
02/06/2005
Se vc estiver utilizando ibquery, faça:
procedure Tform1.DBGrid1TitleClick(Column: TColumn);
var
coluna:string;
begin
coluna:=column.FieldName; // PEGA O CAMPO DA COLUNA CLICADA
ibquery1.Close;
ibquery1.SQL.Clear;
ibquery1.SQL.Add(´select * from clientes order by ´coluna);
ibquery1.Open;
end;
procedure Tform1.DBGrid1TitleClick(Column: TColumn);
var
coluna:string;
begin
coluna:=column.FieldName; // PEGA O CAMPO DA COLUNA CLICADA
ibquery1.Close;
ibquery1.SQL.Clear;
ibquery1.SQL.Add(´select * from clientes order by ´coluna);
ibquery1.Open;
end;
GOSTEI 0