Discussion :

[abkthekingABK]

j'ai dans mon projet forme vente, qui porte un composant dbcombobox à la liste des items comme suit :
produit1
produit2
produit3
produit4
produit5
j'ai fait ce code pour entrer les données mais ça change pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
if DBComboBox1.Items=0 then
label1.Caption:='produit1';
dbedit7.DataSource:=datasource1;
dbedit7.DataField:='produit1';
if DBComboBox1.Items=1 then
label1.Caption:='produit2';
dbedit7.DataSource:=datasource1;
dbedit7.DataField:='produit2';
if DBComboBox1.Items=2 then
label1.Caption:='produit3';
dbedit7.DataSource:=datasource1;
dbedit7.DataField:='produit3';
if DBComboBox1.Items=3 then
label1.Caption:='produit4';
dbedit7.DataSource:=datasource1;
dbedit7.DataField:='produit4';
if DBComboBox1.Items=4 then
label1.Caption:='produit5';
dbedit7.DataSource:=datasource1;
dbedit7.DataField:='produit5';

Comment faire pour que quand je choisis un item de dbcombobox la caption de label et les sources de dbedit changent. Merci.

[SergioMaster]

Bonjour,

Y a du travail

déjà le code est simplifiable en

Code :

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

1
2
3
4
5
6
7
8
9
dbedit7.DataSource:=datasource1;
case DBComboBox1.ItemIndex of
  0 : Label1.Caption:='produit1' 
  1 : Label1.Caption:='produit2'
  2 : Label1.Caption:='produit3'  
  3 : Label1.Caption:='produit4'  
  4 : Label1.Caption:='produit5'  
end;
dbedit7.DataField:=Label1.Caption;

mais pour moi la logique reste incompréhensible

comment fait pour quand choisie un item de dbcombobox la caption de label et les source de dbedit ce change

Encore une fois, je ne comprend pas vraiment la question (une bonne image écran pourrait peut être éclairer la question ?)

[Invité]

Placer le code dans l’événement OnChange de la combo ?