Como ordenar os campos do DBGrid atraves da colunas

Question

Como eu posso ordenar os campos no DBGrid, clicando na coluna
correspondete do campo, sem usar ClientDataSet e sem usar Query.
- Estou utilizando Delphi 6 / ADO / Access 2000
AdoConnect - AdoTable - DataSource

Desde j� obrigado.

R�mulo Barros · Answer

Evento CellClick do DBGrid[code:1:f2dd1302f1]procedure TForm1.DBGrid1CellClick(Column: TColumn);begin  ClientDataSet1.IndexFieldNames := Column.FieldName;end;[/code:1:f2dd1302f1] :wink:  :wink:  :wink:  :wink:  :wink:...

Joao_schroeder · Answer

Talvez n�o seja o que queres, mas tamb�m � �til.
Ao clicar no t�tulo do DBGrid ele ir� ordenar pelo campo clicado.

procedure TF_con_cadcli.DBGrid1TitleClick(Column: TColumn);
var
posicao: integer;
begin
with IBQuery1 do
begin
if active then
Close;
with SQL do
begin
posicao := pos(�ORDER BY�, UpperCase(Text));
if posicao = -1 then
Add(�ORDER BY � + Column.FieldName)
else
Text := Copy(Text, 1, Posicao - 1) + �ORDER BY � + Column.FieldName;
end;
Open;
end;
// column.Font.color:=clblue;

esta �ltima linha faz com que mude a cor da coluna clicada.

Canastra · Answer

Estou usando ADOTable, sou principiante em Delphi e n�o sei utilizar e
configurar o componente ClientDataSet.

Se puder me explicar usando AdoTable, �timo, caso contratio favor
me explicar quais as configura��es das propriedades e c�digo dos
eventos.

Desde j� O B R I G A D O ...........

Uildenei · Answer

voce pode fazer da forma facil:no evento OnTitleclick poe o codigo abaixo ... procedure TForm1.DBGrid1TitleClick(Column: TColumn);begin  if (Pos(Column.FieldName, tb.IndexFieldNames) > 0)and(Pos(�DESC�, tb.IndexFieldNames) = 0) then    tb.IndexFieldNames:=tb.IndexFieldNames + � DESC�  else    tb.IndexFieldNames:=Column.FieldName;end;senao pode usar a propriedade TIndexDefse criar os indices e fazer o tratamento necessario....

Canastra · Answer

Uildenei,           Fiz como falou, e deu tudo certo.           O B R I G A D O............................

Ezequias_rocha · Answer

Estou tentando colorir a coluna clicada para informar por qual est� ordenada mas est� dando um erro de Access Violation (como se a coluna n�o estivesse pronta)

Segue c�digo abaixo:

Var posicao, i:integer;
begin
inherited;
With (dsPrincipal.DataSet as TQuery).SQL do
Begin
posicao := pos(�ORDER BY�, UpperCase(Text));
if posicao = -1 then
Add(�ORDER BY � + Column.FieldName)
else
(dsPrincipal.DataSet as TQuery).SQL.text := Copy((dsPrincipal.DataSet as TQuery).SQL.text, 1, Posicao - 1) + �ORDER BY � + Column.FieldName;

dsPrincipal.DataSet.Open;
end;
column.Color:= clBlack;

Danilo Oliveira · Answer

Tenho essa mesma duvida s� que pra FMX  algu�m poderia me ajudar?...

F�rum Como ordenar os campos do DBGrid atraves da colunas #252041