Discussion :

[pierrot67]

bonjour

Suite à la résolution de mon problème ici je rencontre quand même encore ce problème quand je crée des nouveaux enregistrements un message de ce type s'affiche encore.
"impossible de convertir un variant de type null en double" il n'y aurait pas une façon de le faire une fois pour toutes.
D'autre part j'ai relu la soluce de Malatar et il me parle de valeur convertie ???
C.a.d?

Merci.

[Delphi-ne]

quand je crée des nouveaux enregistrements

Ils sont créés comment les enregistrements ? par un Insert SQL dans un TQuery, un Add dans un TTable ?
Avec quelques lignes du code ce serai plus clair

[amnir]

Tu utilises quoi comme base de données ?

[Yurck]

Tu utilises quoi comme base de données ?

En effet en fonction de ta base tu peux sans doute faire un

Code :

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

1
2
 
  Select coalesce(mon_champ, 0)

Si c'est pour un aggrégat sur un clientdataset tu peux aussi ajouter un champ de donnée "MonChamp_Pour_Cumul" à ton clientdataset et sur le beforepost tu fera

Code :

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

1
2
3
4
 
  if MonChamp_Valeur.isnull then
     MonChamp_Pour_Cumul.value := 0
  else MonChamp_Pour_Cumul.value := MonChamp_Valeur.value;

Alors tu fera ton aggregat sur MonChamp_Pour_Cumul

Tout les coups sont permis !
a+

[pierrot67]

C'est une table paradox
c'est effectivement pour des aggregats
et les enregistrement sont crées sur une table.

Code :

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

1
2
3
 if MonChamp_Valeur.isnull then
     MonChamp_Pour_Cumul.value := 0
  else MonChamp_Pour_Cumul.value := MonChamp_Valeur.value;

je vais essayer sur le before post de l'aggregat.

[pierrot67]

Voila ce que j'avais mis pour mon calcul. et ça marchais donc si j'ai bien compris je met ou remets ce code dans le before post de l'aggregat.

Code :

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

1
2
3
4
5
6
 if clientdataset1totalretpat.IsNull then
begin
table3retenuepat.DisplayFormat:='0.00';
end
else
table3retenuepat.Value:=clientdataset1totalretpat.Value*3;

[pierrot67]

Toujours le même message d'erreur. Ou j'ai mal compris ou c'est pas la bonne solution

[Yurck]

Code :

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

1
2
3
4
5
6
 if clientdataset1totalretpat.IsNull then
begin
table3retenuepat.DisplayFormat:='0.00';
end
else
table3retenuepat.Value:=clientdataset1totalretpat.Value*3;

Il s'agit d'une erreur de frappe ??

Code :

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

1
2
3
4
5
6
7
8
 
if clientdataset1totalretpat.IsNull then
begin
  table3retenuepat.DisplayFormat:='0.00';
  table3retenuepat.Value := 0; 
end
else
table3retenuepat.Value:=clientdataset1totalretpat.Value*3;

Alors je ne me souvient plus quand ton champ aggregat refait son calcul donc si le beforepost du dataset ne donne pas de bon résultat fait le sur le OnValidate du champ clientdataset1totalretpat

a+

[pierrot67]

Votre solution est bonne mais je viens de m'apperçevoir quand gèrant l'erreur avec un try except c'est plus simple en tous cas ça marche mais si vous me l'avez pas proposé il y à peut-être une raison qu j'ignore.