Com esse código não fica em ordem decrescente.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Stclara
Enviada em: quarta-feira, 12 de julho de 2006 21:07
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] DBGrid HELP
Bem
Eu uso essa função no D7 + Firebird, ver se dar certo pra vc
procedure Tform1.DBGrid1TitleClick(Column: TColumn);
begin
OrdenarDBGrid( Column.Field.DataSet, Column, DBGrid1 );
end;
=
Procedure OrdenarDBGrid( fDataSet : TDataSet;
Bem, amigo, não sei que componentes vc tá usando, mas eu faço desta
mameira com dexpress:
procedure TfrmProcurar.DBGrid1TitleClick(Column: TColumn);
begin
IndexFieldNames:= Column.FieldName;
end;
Otto Júnior escreveu:
Eu uso essa função no D7 + Firebird, ver se dar certo pra vc
procedure
3 matches
Mail list logo