Discussion :

[paradise]

Bonjour,

J'ai dans ma table des données numériques dont aucune n'est à 0 mais à NULL. Et dans ce cas je ne veux pas afficher de valeur mais soit rien du tout, soit un caractère par défaut (par ex. "-"). Je teste donc de la manière suivante dans le OnAfterScroll de mon DataSet :

Code :

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

1
2
3
if (MonDataSet.FieldByName('CHAMP_NUMERIQUE').AsInteger = 0)
  or MonDataSet.FieldByName('CHAMP_NUMERIQUE').IsNull then
    monDBText.Caption := '-';

Et là chose bizarre : j'ai parfois ce que je veux et parfois rien du tout !!

Pour tester je tente de "forcer" l'affichage du caractère (cad pareil sans le "if..then"), mais lorsqu'une valeur numérique est présente elle est tout de même affichée ! Comprends pas
Et surtout je ne comprends pas pourquoi en debug pas à pas il "passe" bien sur la ligne

Code :

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

monDBText.Caption := '-';

quand la valeur est NULL, qu'en survolant le caption à la souris il m'affiche bien '-' mais que dans le logiciel rien ne s'affiche...
Des idées svp ?

[SergioMaster]

Bonjour,

ne pourrais-tu pas utiliser la propriété DefaultExpression du champ ?
Le "forçage" devrait alors se faire sans code
cependant attention , au Post , qui lui remplacera le [null] par la valeur par défaut indiquée (enfin je crois , je n'ai jamais essayé dans ces conditions) , j'espère avoir une réponse à ce cas dans la suite du Trend

[BuzzLeclaire]

Bonjour,

ne pourrais-tu pas utiliser la propriété DefaultExpression du champ ?

@ Sergio,

Je confirme, enfin du moins sur Access

@ Paradise : Comme le dit Sergio, si tu fixe une valeur par defaut à ton champ systématiquement la valeur sera prise en compte en cas d' INSERT ou de APPEND (évidement sir tu n'alimente pas toi même le champs)

Se qui te permet de tester uniquement si égale à 0 (si tu fixe une valeur par defaut à 0 biensur)

[paradise]

Merci pour vos réponses.

La base est seulement en consultation donc pas de modifs, mais j'ai testé la propriété DefaultExpression (avec valeur numérique et chaine de caractères) et cela ne marche pas mieux

En gros : soit je n'affiche rien du tout, soit j'utilise un "simple" TLabel avec MAJ manuelle ce qui est dommage tout de même....

[paradise]

Même comportement avec un TDBEdit....

[paradise]

J'ai peut être un début d'explication, à savoir qu'en mode conception (dans l'IDE Delphi quoi) je me connecte à FireBird par le serveur installé en service Windows, alors qu'en exécution j'utilise le serveur embarqué.

Donc quand je règle le paramètre DisplayFormat dans le code j'arrive à avoir un nombre fixe de décimales (autre problème que j'avais), chose qui ne marchait pas en le définissant dans l'inspecteur d'objets.
Par contre j'ai beau mettre DefaultExpression à '-' même dans le code, mes TDBLabel restent vides...