Buscar por:

Ordernar um dbgrid

Código

{    Oi pessoal, após consultar várias vezes as dicas não encontrei uma que me satisfizesse, então resolvi passar esta diga. Para ordernar um dbgrid pelo título. Claro, vale somente para colunas simples sem lookup.

Vá no form em var e crie a variável Ascendente do tipo boolean.Ex:

}

var

  FrmPrincipal: TFrmPrincipal;

   Ascendente : Boolean; 

implementation

Depois vá no evento OnShow do form e inicialize a variável como false. Ex:

Ascendente := False;

evento OnTitleClick do DBGrid digite:

Ascendente:= not Ascendente ;

  If Ascendente then

ADOQuery1.IndexFieldNames := Column.FieldName + '   ASC' 

  else

           ADOQuery1.IndexFieldNames := Column.FieldName + '    DESC';