Bonjour a tous,
Voila mon problème expliquer par un exemple ci dessous :
j'ai une table Paradox qui contient 2 champs ( Total1 et Total2 les deux de type Currency (Monétaire))
vu a mon besoin j'ai crée une requette suivante
j'ai ajouté a ma requête un champs Calculer appeler Montant de type Currency ,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Select Total1,Total2 From MaTable
et dans l'événement OnCalcFields Voici le code
la valeur initial de i est 0 ;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 procedure TForm1.Query1CalcFields(DataSet: TDataSet); begin Query1Montant.AsCurrency := (Query1Total1.AsCurrency * Query1Total2.AsFloat) * i ; i := i +1 ; end;
et Voici mon résultat
jusqu'ici Tous va très bien a l'exécution seulement quand je je navigue mon DBgrid à l'aide de mon DBNavgateur Mon Champs calculer Montant prend d'autre valeur (c-a-d la méthode OnCalcFields est appeller chanque fois que je navigue mon DbGrid.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Total1 Total2 Montant ==== ==== ====== 12 10 0 10 5 150 4 2 16 3 3 27
y a t il une solution
Partager