Buscar

Para ordenar os dados do DbGrid ao clicar no título do campo

Código

A ordenação será feita através da propriedade de tabela IndexFieldNames, que define o nome do índice para a classificação, conforme o campo clicado na grade (Column.FieldName).

Crie na tela padrão uma variável global chamada Ascendente do tipo Boolean para que todas as telas de cadastro passem a utilizá-la.

No evento OnShow, da tela padrão, digite:
Ascendente := False;

No evento OnTitleClick do DBGrid digite:
Ascendente:= not Ascendente ;
If Ascendente then
AdoTable1.IndexFieldNames := Column.FieldName + ' ASC'
else
AdoTable1.IndexFieldNames := Column.FieldName + ' DESC';

Bom é isso, se o AdoTable estiver dentro de uma DataModule, precisa colocar o nome do DataModule.AdoTable

Código testado

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Componentes
Adicionada dia: 17/11/10
Por: Fábio Antônio Berti
Visualizada: 19752 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009