Discussion :

[cdlr27]

Bonjour,
au lieu du DBGrid classic, j'ai voulu utiliser celui de la JVCL v3.37 qui donne plus de souplesse !!

J'ai repris l'exemple JvDBGridExportdemoMainForm.pas dans lequel on a un exemple de tri sur les colonnes de la Grille.

Je bute sur une partie du code que j'ai pompé

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFfil.JvDBGfilTitleClick(Column: TColumn);
begin
  if jvDBGfil.SortedField = column.FieldName then
    ascending := not ascending
  else
    ascending := false;
//  jvCSVDataset1.Sort(column.FieldName, ascending);
  Fdata.Qfil.Sort(column.FieldName, ascending);
  jvDBGfil.SortedField := column.FieldName;
end;

La propriété SORT de l'exemple est basée sur un composant JvCsvDataset alors que je n'ai qu'un simple Query.

Sur ma ligne de programme,
Fdata.Qfil.Sort(column.FieldName, ascending);
j'obtiens une erreur "opérateur ou point-virgule manquant" juste après la parenthèse ouvrante.

Quelqu'un a t'il déjà utiliser cette propriété sur une base ADO.

Marcel

[liazidf]

Bonsoir,
La syntaxe exacte c'est çà:

Code :

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

1
2
ADOQuery1.Sort:=column.FieldName;
    JvDBGrid1.SortedField := column.FieldName;

[cdlr27]

Bien vu liazidf, avec ta solution, j'ai effectivement le tri sur la colonne sélectionnée.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFfil.JvDBGfilTitleClick(Column: TColumn);
begin
  if jvDBGfil.SortedField = column.FieldName then
    ascending := not ascending
  else
    ascending := false;
//  Fdata.Qfil.Sort(column.FieldName, ascending);
  Fdata.Qfil.Sort := column.FieldName;
  jvDBGfil.SortedField := column.FieldName;
end;

Mais, il me manque le sens de tri et la syntaxe présentée dans l'aide provoque une erreur à l'exécution.

ADOQuery1.Sort :='LastName ASC,DateDue DESC'

A suivre

[cdlr27]

En poursuivant sur l'idée de liazidf, j'ai trouvé un exemple de tri sur grille ADO.

http://forum.cntt.vn/forums/t/156171.aspx

Cela fonctionne correctement sur les grilles de base de DELPHI, de ce fait plus besoin d'utiliser les grilles JVCL, mais il va me manquer d'autres subtilités de ces grilles.