Discussion :

[appakar]

when i compile this code Quand je compile ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
if FDTable1.IndexFieldNames = column.Field.FieldName then
FDTable1.IndexFieldNames := column.Field.FieldName + ' DESC'
else
FDTable1.IndexFieldNames := column.Field.FieldName;
end;

i receive an error msg j'obtiens ce message d'erreur :

L'objet [<exp-Num>DESC] est introuvable

[SergioMaster]

Bonjour,(une formule de politesse n'a jamais fait de mal à personne)

Tout d'abord je vous signale que le forum est un forum de langue française. Merci de bien y faire attention.

Pour le fond : le premier point est que votre titre porte sur DBGrid alors que le sujet réel est Firedac, soit la source de données de la grille et non la grille.
Pour la forme :
Lectures : généralités, détail, penchez-vous aussi sur Expression
il me semble (semble car je n'ai pas fait le test) qu'il aurait fallu écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
if FDTable1.IndexFieldNames = column.Field.FieldName then
FDTable1.IndexFieldNames := column.Field.FieldName+ ':D'
else
FDTable1.IndexFieldNames := column.Field.FieldName;
end;

Bien évidemment une autre manière de faire serait de ne pas passer par un FDTable mais une FDQuery avec utilisation de macros pour le tri mais c'est un autre débat.

[appakar]

mr. SergioMaster
merçiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii bcp

[SergioMaster]

merçiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii bcp

Un petit eut été plus apprécié