Discussion :

[smail21]

salut j'ai utiliser un Tquery pour qu'il calcule la moyenne des pix pour chaque produits! car j'ai plusieurs entrée de chaque produit et vaec des prix différentes, et je dosi calculer la moyenne
la requette est bonne la voici :

Code :

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

1
2
3
4
SELECT Code_pro, AVG( Prix )
FROM "pbrecept.DB" Pbrecept
GROUP BY Code_pro
ORDER BY Code_pro

mais je veux utiliser les valeurs calculés, j'ai renomé AVG(prix) par PUMP
et lrosque j'ai utilisé le code suivant, il me dit que le champ "pump" n'existes pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.ed10Exit(Sender: TObject);
var Option : TLocateOptions;
begin
//add_article_ret.setfocus;
Option := [loCaseInsensitive];
qpump.active:=true;
if (qpump.locate('code_pro',ed8.text,Option))then
showmessage(inttostr(qpumppump.value));
end;

que dois je faire, sachant que le prix est de type currency !

[qi130]

Code :

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

SELECT Code_pro, AVG( Prix ) as PUMP......

[smail21]

ça marche je l'ai fait avant, mais le probleme c'est que lorsque je veux affecter la valeur pump à TCurrencyEdit que j'ai nomé pumpin ou l'afficher avec showmessage,
à l'execution il m'affiche un message d'erreur disant que le champs pump n'existe pas !

Code :

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

pumpin.value:=qpump.parambyname('newpump').ascurrency;

[JustMe]

Ton newpump n'est pas un paramètre comme tu l'as mentionné mais c'est un champs utilise )à la place un FieldByName.