DBgrid

Résolu
AEC1 Messages postés 98 Date d'inscription mercredi 31 octobre 2007 Statut Membre Dernière intervention 24 décembre 2012 - 20 oct. 2012 à 22:43
AEC1 Messages postés 98 Date d'inscription mercredi 31 octobre 2007 Statut Membre Dernière intervention 24 décembre 2012 - 8 nov. 2012 à 05:43
Bonjour,
voici la procédure suivante qui permet en cliquant dans le titre d'une colonne d'un DBgrid lié avec une table sous SQL qui fonctionne très bien, mais je souhaité faire de même avec un DBgris lié avec une table DB Paradox7, mais voila si quelqu'un pouvais m'adapter cette procédure cela me serais bien utile, car je manipule encore assez mal toutes ces subtilités. Merci d'avance, amitiés...
AEC1
procedure TMain.DBGrid1TitleClick(Column: TColumn);
VAr
Tri_Ch:String;
I:integer;
begin
//vérifier si le tri et descandant ou ascendant
if Tri_dec=True Then
begin
Tri_ch:=' ASC';
Tri_dec:=False;
end
ELSE
begin
TRi_Ch:=' DESC';
Tri_Dec:=True;
end;
Db.Close;
db.SQL.Clear;
db.SQL.Add('Select * FROM DB ORDER BY '+Column.Field.DisplayName+Tri_ch);
db.open;
Statusbar1.Panels.Items[0].Text:='Tri Par '+Column.Field.DisplayName+' '+Tri_Ch;
// coloré tout les titre en Noir
For i:=0 to dbgrid1.Columns.Count-1 Do
dbgrid1.Columns.Items[i].Title.Font.Color:=clblack;
//coloré le tite de Tri En Rouge
dbgrid1.Columns.Items[column.Index].Title.Font.Color:=clred;
end;

7 réponses

beckerich Messages postés 302 Date d'inscription jeudi 29 septembre 2005 Statut Membre Dernière intervention 17 septembre 2013 2
21 oct. 2012 à 00:48
bonjour,

si tu utilises un TTable, alors regarde du côté de la propriété IndexFieldNames, cela devrait me mettre sur la voie.

Luc.
Rejoignez-nous