Gostei da dica do Fabricio, modifiquei o codigo dele pra mim usar com um
Ztable do ZeosDBO, funcionou perfeitamente,
Segue o codigo.
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
enum_IndexOption: TIndexOptions;
str_IndexAsc,
str_IndexDesc,
str_IndexName: string;
begin
qyConsulta.Close;
qyConsulta.SQL[3]:=' Order By '+TABELA+Column.FieldName;
qyConsulta.Open;
Em 20 de agosto de 2010 16:17, Allan GabrielAM
alla...@americamoveiseletro.com.br escreveu:
Olá, procurei no histório da lista e não encontrei, preciso fazer que o
sistema entenda que ao clicar
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
As opções IndexDefs e IndexFieldNames pertencem a classe
TCustomClientDataSet, portanto, só podem ser usadas por TClientDataSet.
Joga um provider + CDS ligado na sua query e pronto, vc pode utilizar a
ordenação. :D
Em 20 de agosto de 2010 19:19, Allan GabrielAM
4 matches
Mail list logo