Multisélection avec DBCheckBox et champ booléen

Bonjour,

Je tente de créer un DBCtrlGrid qui contient un DBCheckBox relié à un champ calculé booléen du dataset ainsi qu'un champ Edit qui affiche un libellé relié au dataset également.
A l'affichage, les libellés s'affichent mais je n'arrive pas à gérer correctement le DBCheckBox.
Sur le OnClick du DBCheckBox, j'ai codé ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

if pdaDataModule.ADOQry_ComSauceboolSauce.Value = true then begin pdaDataModule.ADOQry_ComSauce.Edit; pdaDataModule.ADOQry_ComSauceboolSauce.Value := false; exit; end else if pdaDataModule.ADOQry_ComSauceboolSauce.Value = false then begin pdaDataModule.ADOQry_ComSauce.Edit; pdaDataModule.ADOQry_ComSauceboolSauce.Value := true; exit; end;

---

Je veux que la valeur du booléen boolSauce prenne la valeur true ou false selon que le dbcheckbox est coché ou non.
Or, avec ce code, ça boucle déjà à l'affichage du formulaire, car il passe dans le OnClick?!
Je sais qu'il existe les SMDBGrid qui permettent de gérer des multisélection mais je dois ne coder qu'avec du natif Delphi.. Grrrr!
Des idées?
Merci!

Bonsoir,

En admettant que ton TDBCheckBox s'appelle tout simplement DBCheckBox1, pourquoi ne pas écrire tout simplement qqchose comme :

Code:

---

1 2 3

pdaDataModule.ADOQry_ComSauce.Edit; pdaDataModule.ADOQry_ComSauceboolSauce.Value := DBCheckBox1.Checked;

---

?

@ + ;)

Bonjour,
ton problème doit-être résolu. Cependant si cela boucle toujours c'est parce que tu affecte une nouvelle valeur à ton TDBChecekBox via son lien datalink sur le champs dont tu changes la valeur.
Or le onclick est déclenché sur le ondatachange du champs qui lui-même suit l'ouverture de ton ensemble de données ou le changement d'enregistrement dans celui-ci. (donc à l'ouverture de ta fiche sans doute)

En conséquence de quoi ne le fait qu'en cas de besoin réel :

Code:

---

1 2 3 4 5 6

if (pdaDataModule.ADOQry_ComSauceboolSauce.Value <> DBCheckBox1.Checked) then begin pdaDataModule.ADOQry_ComSauceboolSauce.Datasource.Dataset.edit; pdaDataModule.ADOQry_ComSauceboolSauce.Value := DBCheckBox1.Checked; end;

---

Mais ce qui m'embête c'est pourquoi coder le Onclick du DBCheckbox, ne fait-il pas lui même la mise à jour du champs "ADOQry_ComSauceboolSauce" ?

a+