Discussion :

[mario9]

Bonjour

J'ai un erreur quand j'essais de remplir mon combobox

La premiere fois j'ai un erreur mais la 2eme fois ca passe je ne vois pas pourquoi.

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
21
22
23
24
25
26
27
28
29
30
 
 
procedure TFcalcul.CregionChange(Sender: TObject);
begin
 REGION:=CREGION.Text;
 
   FCALCUL.FDQuery1.Close;
   FCALCUL.FDQuery1.SQL.Clear;
 
 
   FCALCUL.fdquery1.SQL.TEXT:='select * from poste WHERE RRECODE =:R';
                                                FCALCUL.fdquery1.ParamByName('R').asString:=region;
 
   FCALCUL.FDQuery1.active:=true;
   FCALCUL.fdquery1.First;
   FCALCUL.cSOUSPOSTE.items.clear();
   while  not FCALCUL.fdquery1.Eof do
       begin
         FCALCUL.cSOUSPOSTE.items.add(fdQuery1.FieldByName('rregion').asString);// bloque ici si j'enleve cette ligne show m'affiche bien les résultats
 
       //   showmessage(FCALCUL.fdQuery1.FieldByName('rregion').asString);
 
         FCALCUL.fdquery1.next;
     end;
 
     FCALCUL.fdquery1.active:=FALSE;
 
end;
 
message d'erreur

Merci encore de partager votre expérience

Mario