Mega Code Archive

 

Categories / Delphi / VCL

 

Gridde güzel bi sıralama

gridin title click özelliğine yazıp tıklanan alana göre bir sıralama yapar if grislem.Tag=0 then begin QrIslem.SQL.Add('Select * From AlinanFaturaIslem Where '+sart+' order by ' +column.fieldname +' asc'); end else begin QrIslem.SQL.Add('Select * From AlinanFaturaIslem Where '+sart+' order by ' +column.fieldname +' desc'); end; if grislem.Tag=0 then grislem.Tag:=1 else grislem.Tag:=0; gezici_