Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá, estou desenvolvendo uma telinha que lista os valores de uma tabela SQL
eu que quando a pessoa clica-se no titulo ele ordena-se a tabela (1, 2, 3, ...)
com o seguinte comando:
procedure TFMUsuarios.dbgUsuariosTitleClick(Column: TColumn);
var
campo :string;
begin
campo:= column.fieldname; // CAMPO RECEBE O NOME DA COLUNA CLICADA,
application.processmessages; // para considerar algo que aconteça no dbgrid durante a entrada nesta procedure
zqUsuarios.sql.clear; // LIMPA A QUERY
zqUsuarios.sql.add('select * from Funcionarios order by '+campo);
zqUsuarios.Open; // ABRE A QUERY COM A ORDEM ESCOLHIDA
end;
dbgUsuarios é o meu TDBGrid
zqUsuarios é o meu TZQuery
BOm desta forma ele ordena do jeito que falei, mas eu quero que quando eu clicar novamente ele ordene ao contrario (3, 2, 1)
e não sei como fazer
Por Favor me deem uma LUZ.
:) Obrigado.
Carregando comentários...