Discussion :

[bastion]

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 ma 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
47
48
49
50
51
52
53
54
55
56
57
58
59
procedure TFficheselect.BitBtn3Click(Sender: TObject);
var nl,i: Integer;
  begin
  nl:=clbox1.items.count-1;
  for i:= 0 to nl do
  begin
 clBox1.checked[i]:=false;
 end;
   end;
 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;
     s1:=800000;
     s2:=9523.81;
 
 
    t1.First;
    while not t1.eof do
    begin
    T1.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.('MontPret')-t1.fieldbyname('Retenue');
   s:=T1.FieldByName('Nouvsld').asfloat;
 
    if t2.fieldbyname('Mat').asstring= (copy(clbox1.items[i],0,4))then
    begin
 
   t2.edit;
   t2.FieldByName('Nouvsld').asfloat:=s;
   t2.fieldbyname('TotRemb').asfloat:=s1-s;
   t2.fieldbyname('Nbrmois').asfloat:= t2.fieldbyname('TotRemb').asfloat/s2;
    t2.post;
        end;
           end; end;
         t1.post;
         t1.next;
            end;
               end;
                end;end;

[Rayek]

Penses à utiliser les balises de codes (le # dans la barre d'outil) quand tu mets du code.

Sinon :

1- Tu devrais renommer tes variables ca serait plus simple à comprendre (eviter s,s1,s2 et préférer Somme, TotalTruc, SommeBidule) faire de même avec tes tables (le jour où tu as 20 tables à gèrer, j'ose pas imaginer le bronx que ca va être)
2- Dans ton code tu ne te positionnes jamais avec la table T2, tu fais un edit dans le vent la où le courant ammenera le curseur de la table. Il faudrait que tu utilises le locate pour rechercher le bon enregistrement.