champs calculé

Question

Bonjour, j'ai fait le calcule d'une colonne, l'opération marche, mais la somme trouvée s'affiche sur le champs calculé réservé à ça ne s'enregistre pas ;quand je sort de la fiche 'form' où je fait le calcul je trouve le champ vide , pourquoi ? et merci d'avance.

Whismeril · Answer

Bonsoir, je ne code pas en delphi, mais ceux qui savent ne pourront pas te répondre sans que tu montres le code que tu as écrit.
Utilise les balises de coloration syntaxique, voir ici

sanabde · Answer

Ok monsieur, voila le code et merci bien pour cette orientation.je suis un débutant sur le domaine de programmation.                                                  table1.edit;   
           Table1.FieldByName('TO').AsInteger:= somme;  // le champ calculé où se mettre la valeur voulue

Technix59 · Answer

Bonjour sanabde,

Il faut ajouter un table1.Post; après l'écriture.


Technix59. 
 
--

sanabde · Answer

Bonjour Technix59, j'ai mis table1.post;  mais quand j'exécute le programme et après le clique sur le bouton 'calculer' l'exécution de la procédure du calcul ne s'arrête pas comme c'est bloqué et je ne peux pas sortir de l'application sauf si j'ai utilisé l'option de windows '' fin de taches ''

sanabde · Answer

Ok , le voila et merci pour votre attention monsieur ,,procedure TFiche_etat_engage.calculerClick(Sender: TObject);
var somme:integer;
           begin
           somme := 0;
           Table1.first;
           while not Table1.Eof do
           try
           somme := somme + Table1.fieldbyname('chapitre').AsInteger;
           finally Table1.next;
           table1.edit;
           Table1.FieldByName('TO').AsInteger:= somme;
           edit1.Text:=inttostr(somme);
           end;
   end;
end.

sanabde · Answer

Ok , le voila et merci pour votre attention monsieur ,,

procedure TFiche_etat_engage.calculerClick(Sender: TObject);
var somme:integer;
begin
somme := 0;
Table1.first;
while not Table1.Eof do
try
somme := somme + Table1.fieldbyname('chapitre').AsInteger;
finally Table1.next;
table1.edit;
Table1.FieldByName('TO').AsInteger:= somme;
edit1.Text:=inttostr(somme);
end;
end;
end.

sanabde · Answer

Merci monsieur TECHNIX59, le problème persiste toujours le champ calculé ne s'enregistre pas dés que je sort de la fiche. j'attire votre attention monsieur que je veux que la valeur soit enregistrer sur ce champ pour qu'elle sera  affiché sur l'état de sortie ( quickreport ), parce que le contenu d'un (edit.text) ne peut pas s'afficher sur les états...ou c ce que je crois ;

sanabde · Answer

ok, voila maintenant comment ça marche ;; si j'ai mis (table1.post;) le calcul ne s'affiche complétement pas sur le champ calculé et si j'enlève (table1.post) le calcul s'affiche et ne s'enregistre pas ; et voila le code à nouveau ;;;;var somme:integer;
           begin
           somme := 0;
           Table1.first;
           while not Table1.Eof do
           begin
           try
           somme := somme + Table1.fieldbyname('chapitre').AsInteger;
           except
           end;
           table1.Next;
           end;
           table1.edit;
           Table1.FieldByName('TO').AsInteger:= somme;
           edit1.Text:=inttostr(somme);
           table1.Post;
           end;
end.

sanabde · Answer

Bonjour, si.  le calcul s'affiche sur l'edit,

sanabde · Answer

ok merci, est-ce qu'on peux afficher le contenu de l'edit1.text sur l'etat de sortie ( quickreport )? si oui , c'est ce que je veux sinon vous pouvez me donner une autre solution s'il ya .

sanabde · Answer

comme ça ? Quickrep1.QRlabel109.Caption:=inttostr(somme)

sanabde · Answer

merci, mais l'application ne s'exécute pas voila le message d'erreur de compilation.  
[Erreur] etat_paie.pas(198): Identificateur non déclaré : 'QRlabel109'

Champs calculé

12 réponses

Votre réponse

Discussions similaires