COLOCAR O DBGRID EM ORDEM DO TITULO CLICADO
1 – No evento ontitleclick, criar uma variavel chamada campo, campo
então receberá a coluna clicada, para depois a query fazer o order by
pelo campo escolhido.
procedure Tconscli.gradeprocessosTitleClick(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
qrCLIENTES.sql.clear; // LIMPA A QUERY
qrCLIENTES.sql.add('select * from div1 order by '+campo); //
ESCREVE O SELECT COM O ORDER BY
if not QRCLIENTES.Prepared then
QRCLIENTES.Prepare;
QRCLIENTES.Open; // ABRE A QUERY COM A ORDEM ESCOLHIDA.
End;
column.Font.color:=clblue; // COLOCAR A COLUNA NA COR DESEJADA
Paulo Henrique escreveu:
>Olá pessoal, como faço para que quando clicar no titulo de uma coluna de um
>DBGRID essa coluna fique ordenada em ordem alfabética?
>Abraços
>Paulo Henrique
>Arcos-MG
>[EMAIL PROTECTED]
>[EMAIL PROTECTED]
>
>[As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
