Bonjour
Avant l'affichage d'un DBGRID, j'effectue un calcul sur les enregistrements.

En clair, j'effectue la somme résultante d'un champ calculé d'une requète, et je n'avais envie de refaire une requète sur le résultat. Aussi, une boucle sur les enregistrements faisait l'affaire

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
  for i:=0 to DBGprod.DataSource.DataSet.RecordCount - 1 do
    begin
    total := total + FlistProd.QarticleMagasinPrixHT.Value * (FlistProd.QarticleMagasinQuantit.Value - FlistProd.QarticleMagasinNbre.AsInteger);
    FlistProd.QarticleMagasin.Next;
    end;
   LabelTotal.Caption:=' Total HT : '+ CurrToStrF(total,ffCurrency,2);
Mais voir le balayage à l'écran est trés moche.

Comment figer l'affichage pendant le calcul ?.


Marcel