Blz, mas dá uma olhada na função que te mandei. Ela dá um efeito diferente pois
muda a cor do titulo da coluna ordenada no DBGrid.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.
Você pode ordenar clicando no Title da Coluna seguindo os seguinte passos:
Nos eventos da dbgrid, localize o evento "OnTitleClick" e programe:
procedure TfrmSEUFORM.dbgListaTitleClick(Column: TColumn);
begin
inherited;
dm.cdsSUATABELA.IndexFieldNames := Column.FieldName;
end;
Abraços!!!
Concordo Leandro, mas no caso, a base de dados não é muito grande, por isso
optei fazer deste modo, mais prático pra mim, pesquisei algo sobre sortbyfield
mas não achei material que me ajudasse realmente, mas cara, agradeço muio a
ajuda de todos, e se vc tiver algum material pra me ajudar, agrad
nao era mais facil assim:
procedure Tfrmconsfornecedor.DBGrid1TitleClick(Column: TColumn); begin
qconsulta.Close;
qconsulta.sql.clear; // LIMPA A QUERY
If texto = '' Then // ESC O SELECT C ORDER BY
qconsulta.sql.add('select * from produto order by
'+column.fi
Galera, resolvi meu problema, graças à Deus: usei praticamente a mesma base de
código de antes, somente coloquei uma variável global(texto) recebendo o valor
do sql do adoquery após ele ser inserido na propriedade sql do adoquery, e não
após ser executado, daí funcionou:
procedure Tfrmconsforne
ELECT * from tabela');
SQL.Add('ORDER BY '+Trim(AuxCampo)+'');
open;
end;
end;
De: "Wilson, Stephen"
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 17 de Agosto de 2009 9:01:44
Assunto: RE: [delphi-br] Re:
.
Arno.
--- Em sáb, 15/8/09, gugavolcom escreveu:
De: gugavolcom
Assunto: [delphi-br] Re: Problemas ao ordenar dbgrid pela coluna
Para: delphi-br@yahoogrupos.com.br
Data: Sábado, 15 de Agosto de 2009, 1:24
sabe qual é o problema, é que eu estou pegando a consulta de
Message-
> From: delphi-br@yahoogrupos.com.br
> [mailto:delphi-br@yahoogrupos.com.br ]On
> Behalf Of gugavolcom
> Sent: 15 August 2009 04:29
> To: delphi-br@yahoogrupos.com.br
> Subject: [delphi-br] Re: Problemas ao ordenar dbgrid pela coluna
>
> Beleza amigo, já me aj
gugavolcom
Sent: 15 August 2009 04:29
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: Problemas ao ordenar dbgrid pela coluna
Beleza amigo, já me ajudou muuitíssimo, o problema, é que quando clico mais de
uma vez por exemplo, ele dá erro, pq com certeza o sql deve ficar da seguinte
forma:
Beleza amigo, já me ajudou muuitíssimo, o problema, é que quando clico mais de
uma vez por exemplo, ele dá erro, pq com certeza o sql deve ficar da seguinte
forma: SELECT ALGUMA COISA ORDER BY ALGUMA COISA ORDER BY OUTRA COISA, daí dá
erro, tô tentando fazer com que o sql do adoquery receba o se
Amigo, vc me ajudou bastante, funcionou, porem aconteceu o mesmo erro pelo qual
eu já havia passado, se eu clicar em mais de uma coluna, ele dá erro...pq no
caso ele deve estar montando o seguinte SQL: SELECT ALGUMA COISA ORDER BY
ALGUMA COISA ORDER BY OUTRA COISA, daí dá erro...se tiver alguma
sabe qual é o problema, é que eu estou pegando a consulta de um adoquery de
outro form, daí por exemplo, recebi a primeira vez, por exemplo : SELECT * FROM
PRODUTO,pode ser outro, mas vamos usar este que é simples, e daí no caso,
depois que eu cliquei a propriedade sql desse adoquery é o seguin
+ ' Order By ' + Column.FieldName;
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add(Consulta);
Open;
end;
end;
nos meus testes funcionou legal.
Abraços.
Arno.
--- Em sex, 14/8/09, gugavolcom escreveu:
De: gugavolcom
Assunto: [delphi-br] Re: Problemas ao ordenar d
O qconsulta é o meu Adoquery, ele está ligado na tabela do datamodule.
Tenta algo assim?
datamodule.clientdataset.IndexFieldNames := Column.FieldName;
O que seria o qConsulta?
2009/8/13 gugavolcom
> Carlos, obrigado pela dica, mas, tem algo estranho, a seguinte linha não
> pode ser executada:
>
> qConsulta.indexFieldName := Column.FieldName;
>
> pois não existe a
Carlos, obrigado pela dica, mas, tem algo estranho, a seguinte linha não pode
ser executada:
qConsulta.indexFieldName := Column.FieldName;
pois não existe a o parametro indexFieldName, o que existe aquí é o parametro
IndexName, porém, quando clico na coluna, aparece a seguinte mensagem:
O prov
Boa tarde meu camarada!
Se vc tem a necessidade de trazer todos os registros da tabela, e quer apenas
ordenar, é mais facil assim:
Mantem a sql original, e só ordena no evento onTitleClick do DbGrid:
procedure Tfrmconsproduto.DBGrid1TitleClick(Column: TColumn);
begin
qConsulta.indexFieldName :
17 matches
Mail list logo
