Bonjour;
ya t'il quelqu'un qui peut corrigé ma procédure;
je possede 2 tables
T1(Matricule,Annee,Mois,MontPret,AncienSolde,Retenue,Nouveausolde)
T2(Matricule,Nouveausolde,TotRemb,Nbrmois)
sur la form j'utilise un CheckListBox(j'affiche l'ensemble des employés qui ont beneficie d'un pret et ainsi pour avoir le choix de la sélection)
2 comboBox pour l'année et le mois +1Edit pour la Retenue;
je voudrais avoir un resultat dans cette forme:

T1
Mat-Annee-Mois-AncienSolde-Retenue-Nouveausolde
101 2006 05 900 100 800
101 2006 06 800 100 700
102 2006 06 800 50 750

T2
Mat-NouveauSolde-TotRemb-Nbrmois
101 700 200 2
102 750 50 1

mon probleme c'est dans le resultat de t2 sa n'incrémente pas

ma procedure elle se présente comme suit:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
procedure TFficheselect.Button1Click(Sender: TObject);
VAR s:real; s1:real; s2:real;
    nl,i: Integer;
 
 begin
 t1.Open;
 t2.open;
 
   if messagedlg('Attention....Etes Vous Sure De Vouloir Corriger les Soldes',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
 
 
    nl:=clbox1.items.count-1;
    for i:= 0 to nl do
    begin
 
     s:=800000;//strtofloat(e11.text);
     s1:=800000;//strtofloat(e11.text);
     s2:=t1.FieldByName('Retenue').asfloat;
 
    t2.first;
    t1..First;
    while not t1.eof do
    begin
 
    T1.Edit;
    t2.Edit;
    if(t1.fieldbyname('Mat').asstring)=(copy(clbox1.items[i],0,4)) then
    begin
    t1.fieldbyname('Anciensld').AsFloat:=(s);
 
     if clbox1.checked[i] then
     begin
   t1.FieldByName('Nouvsld').asfloat:= t1.fieldbyname('Anciensld').AsFloat-t1.fieldbyname('Retenue').asfloat;
 s:=t1.FieldByName('Nouvsld').asfloat;
 t2.FieldByName('Nouvsld').asfloat:=s;
 t2.fieldbyname('TotRemb').asfloat:=s1-s;
 t2.fieldbyname('Nbrmois').asfloat:= t2.fieldbyname'TotRemb').asfloat/s2;
      t1.Post;
       t2.post;
        end;
           end;
          t1.next;
              end;
                 end;
                   end;
vous m'excusé si j'été trop long mais je doit m' éxpliqué pour voir claire.