Bonjour
pourquoi ce code sa ne marche pas
j'ai utilisé ce code sur l'évenement de DBRadiogroup1 'OnChange' mais marche pas
ce champ contient seulement deux Choix '1' et '2':

voila le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
procedure TForm1.DBRadioGroup1Change(Sender: TObject);
begin
table1.edit;
if table1.fieldvalues['choix_prix']='1' then table1.fieldvalues['Mt']:=500
                                        else table1.fieldvalues['Mt']:=1000;
table1.Post;
end;