Discussion :

[lepeule]

Bonjour ,
je reviens encore

jai une table: type de versement avec 02 champs :CODE_TYPE_VERST type integer; et LIBELLE_TYPE type char; - j'ai place un TComboBox sur ma form que j'arrive à remplire dans son évenement ComboBox3DropDown avec le code suivant :

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
procedure TF_CorrectionVersement.ComboBox3DropDown(Sender: TObject);
 var
i : Integer;
texte: string;
begin
ComboBox3.Items.Clear;
dm.ADOQuery55.close;
dm.ADOQuery55.open;
    if  DM.combo3.recordcount<>0 then
      for i := 1 to DM.combo3.recordcount do  {là je remplit ma combobox}
        begin
         texte:= DM.combo3.fieldbyname('LIBELLE_TYPE').asstring;
         ComboBox3.items.AddObject(texte, TObject(i));
         DM.combo3.next;
          end;
end;

Le Problème Comment choisir l'index d'un enregistrement donné de la table

par exemple si je dois choisir "virement qui est à la position N°1" ou "espèce qui est position n° 3" etc... j'ai fait ceci dans le ComboBox3Change :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TF_CorrectionVersement.ComboBox3Change(Sender: TObject);
 begin
with ComboBox3 do
if Items.IndexOf('ComboBox3.text') = ItemIndex then
begin
ItemIndex := Items.IndexOf('ComboBox3.text');
//showmessage('code vers '+)
end;
end;

je n'arrive pas à faire la modif dans la table versement

merci d'avance pour l'éclairage

[ShaiLeTroll]

Pourquoi ne pas utiliser un TDBLookupComboBox ?

Je n'ai pas bien compris l'intérêt du code de ton ComboBox3Change, je dirais que cela ne sert à rien (SI A = B ALORS A recoit B, inutile), voir indique que tu n'as pas compris grand chose ( c'est exprès que ComboBox3.Text soit une chaine ???)

ADOQuery55, ComboBox3, combo3, ça c'est un nommage pérenne et aide à la compréhension de tous !

supposons que ADOQuery55 est la table versement, et que l'on puisse la modifier (voir CanModify)

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
procedure TF_CorrectionVersement.ComboBox3DropDown(Sender: TObject);
 var
i, k : Integer;
texte: string;
begin
ComboBox3.Items.Clear;
ComboBox3.ItemIndex = -1;
dm.ADOQuery55.close;
dm.ADOQuery55.open;
    if  DM.combo3.recordcount<>0 then
      for i := 1 to DM.combo3.recordcount do  {là je remplit ma combobox}
        begin
         texte:= DM.combo3.fieldbyname('LIBELLE_TYPE').asstring;
         k := ComboBox3.items.AddObject(texte, TObject(i));
         if DM.ADOQuery55.FieldByName('LeChampCode').AsInteger = DM.combo3.FieldByName('CODE_TYPE_VERST').AsInteger then
           ComboBox3.ItemIndex = k;
 
         DM.combo3.next;
          end;
end;

Code :

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

1
2
3
4
5
6
7
8
9
procedure TF_CorrectionVersement.ComboBox3Change(Sender: TObject);
begin
  if (ComboBox3.ItemIndex  >= 0) and DM.combo3.Locate('LIBELLE_TYPE', ComboBox3.text, []) then
  begin
    DM.ADOQuery55.Edit();
    DM.ADOQuery55.FieldByName('LeChampCode').AsInteger =  DM.combo3.FieldByName('CODE_TYPE_VERST').AsInteger 
    DM.ADOQuery55.Post();
  end;
end;