Tri sur colonne DBgrid lié à une TTable

Version imprimable

02/02/2006, 10h26
Oluha

Tri sur colonne DBgrid lié à une TTable

Salut

J'aimerai ajouter un tri lorsqu'on clique sur le titre sur les titres de colonne donc mon DBgrid lié à une Table.

J'ai trouvé ce post : http://www.developpez.net/forums/vie...ght=tri+dbgrid

par contre certains points sont vraiment flous pour moi :roll:

J'ai bien compris qu'il fallait utiliser onTitleClick mais après je ne sais pas comment appliquer un filtre de tri à ma table sur cet évènement et surtout comment récupérer la colonne sur laquelle l'utilisateur a cliqué.
Quelqu'un pourrait m'aider ?

Merci
02/02/2006, 13h19
plante20100

bonjour,
Quand tu crées la procédure lié au onTitleClick tu as comme paramètre Column qui est un TColumn

ex :

Code:

procedure TMain.Grid1Click(Column: TColumn);

Après pour récupérer la colonne sur laquelle l'utilisateur a cliqué il suffait de faire un truc du genre :

Code:

Case Column.Index Of

Voila ++

Vince

finalement j'ai fais avec un query plutôt qu'une table. Voilà ma procédure pour ceux que ca interresse :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.DBGlogjobTitleClick(Column: TColumn);
var
   colonne : string;
begin
     colonne := Column.Title.Caption;
     // on tri sur la colonne
     Qlogjob.disablecontrols;
     Qlogjob.sql.clear;
     if (colprec = colonne) then
     begin
          if (sens = 'ASC') then
              sens := 'DESC'
          else
              sens := 'ASC';
     end
     else
         sens := 'ASC';
     Qlogjob.sql.add('select * from LOG_JOB order by '+colonne+' '+sens);
     Qlogjob.open;
     Qlogjob.EnableControls;
     colprec := colonne;
end;