Discussion :

[f5jcg_Lulu]

Bonjour,
Question toute simple : J'ai en rapport en lien avec un Dataset Firedac et une BDD Squlite et avec un titre général. Cela fonctionne sauf que je voudrais faire apparaître dans le Memo1 (le titre) le nombre d'enregistrements du Dataset, style "Liste des contacts (nombre d'enregistrements)".
Je parviens à afficher le nombre d'enregistrements de chaque page en pied de page mais pas le total dans le titre.
Merci. Cordialement.

[SergioMaster]

Bonjour,

Je pense que je passerai le recordcount via une variable de fastreport

Code :

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

1
2
3
4
5
6
7
8
 
// Solution 1
//FDQuery1.FetchAll; // récupérer tous les enregistrements 
//frxReport1.Variables['RC'] := FDQuery1.RecordCount; 
// Solution 2, qui a ma préférence car évite le fetchall
var n : integer:=FDConnection1.ExecSQLScalar('SELECT COUNT(1) FROM MATABLE');
frxReport1.Variables['RC'] :=n;
frxReport1.ShowReport();

[f5jcg_Lulu]

Vraiment merci SergioMaster, ça fonctionne. J'ai choisi la 2e solution.
J'avais eu le vague pressentiment que ça devait passer par une variable. De là à passer à la pratique, c'était au-dessus de mes capacités
Dernière minute : comment changer le texte situé avant [RC] en fonction du type d'enregistrements ? Pour moi c'est Memo28. Comment accède-t-on à sa propriété Lines ?
Cordialement.

[SergioMaster]

comment changer le texte situé avant [RC] en fonction du type d'enregistrements ?

solution 1 : Sans changer l'esprit "variable" frxReport1.Variables['RC'] :=Quotedstr(Format('Matieres %d', [n])); à bien noter l'utilisation de QuotedStr

Pour moi c'est Memo28. Comment accède-t-on à sa propriété Lines ?

Par code dans le programme ? En utilisant l'évènement OnBeginDoc . (On peut aussi utiliser BeforePrint)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm11.frxReport1BeginDoc(Sender: TObject);
var memo28 : Tfrxmemoview;
begin
 memo28:=frxreport1.FindObject('Memo28') as TfrxMemoView;
 if assigned(memo28) then
  begin
    memo28.Memo.Clear;
    Memo28.Lines.Add('Sélection');
    memo28.Lines.Add('50 premières matieres'); 
  end;
end;

P.S. j'ai même anticipé la question "et si je veux plusieurs lignes ?"
sinon un simple Memo28.Text:='Hello world'; ça fonctionne aussi

[f5jcg_Lulu]

Ok pour la solution 1 qui fonctionne parfaitement.
Merci encore une fois SergioMaster.
Cordialement.