Discussion :

[Chayanne47]

Bonjour,
J'ai créé une table temporaire dans laquelle j'ai mis le résultat d'une requête
et donc je me sert de cette table temporaire pour remplir mon état (quickreport) en delphi7.
rave reports ne marchant pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
while i < QryParam.RecordCount  do
  begin
editRelevComAge.TabTemp.Insert;
editRelevComAge.NChb.Value := QryParam.FieldByName('NoChb').asInteger ;
editRelevComAge.NdHeb.Value := QryParam.FieldByName('NomClient').asString;
editRelevComAge.DateDeb.Value := QryParam.FieldByName('DateArriv').asString ;
editRelevComAge.DateFin.Value := QryParam.FieldByName('DateDep').asString ;
editRelevComAge.NbPers.Value := QryParam.FieldByName('NbPers').asInteger ;
editRelevComAge.NbNuit.Value := QryParam.FieldByName('NbNuits').asInteger ;
editRelevComAge.CA.Value := 100;
editRelevComAge.Com.Value := 10;
editRelevComAge.PrixChb.Value := QryParam.FieldByName('Prix').asInteger ;
editRelevComAge.TabTemp.Post;
   QryParam.Next;
   i :=i+1;
   end;
EditRelevComAge.QuickRep2.PreviewModal;

et donc la il ne m'affiche que le dernier enregistrement.

[ShaiLeTroll]

alors reprenons les bases de la manipulation du DataSet sans RecordCount ...

Code :

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

1
2
3
4
5
6
7
8
9
QryParam.First
while not QryParam.EOF do
begin
  editRelevComAge.TabTemp.Append; // Avec insert cela risque d'inverser l'ordre
  editRelevComAge.NChb.Value := QryParam.FieldByName('NoChb').asInteger ;
  ..
  editRelevComAge.TabTemp.Post;
  QryParam.Next;
end;

je suppose que NChb, NdHeb, ... ce sont des TField ... il est vrai que je déclare presque jamais mes champs dans mes DataSet tout simplement parce qu'avec une application qui évolue tous les jours, faut tout le temps ajouter (100 tables, 10 000 champs, le datamodule serait énorme) et comme je suis un fervent utilisateur de l'instanciation dynamique, ... donc oui, ce sont des TFields, sont-ils bien raccrochés à TabTemp ? et enfin pourquoi ne pas faire

Code :

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

QuickReport.DataSet := QryParam;

pour les 100 soit en dur, soit en champ calculés, soit SQL genre

Code :

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

SELECT NoChb, 100 as CA, ... FROM ...

[Chayanne47]

la table temporaire se rempli bien.
mais quand je fait afficher mon état je n'ai que le dernier enregistrement au lieu de les avoir tous dans mon état.

[Chayanne47]

je rempli mon état a partir de la requête et je n'arrive pas à relier mes champs texte de mon état aux enregistrement correspondant
il génère bien tout les enregistrements sur mon état mais tout les champs texte sont vide.

si quelqu'un a une idée.

merci

[ShaiLeTroll]

Remettre un First devant le PreviewModal ...