Problème de modification d'un champ

Version imprimable

bonjour;
j'ai un problème de mise à jour d'un champ
j'écris ce code mais :cry: ça bloque!
le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  table2.First;
  while (not table2.Eof) do
  begin
    table2.first;
    while (not table1.Eof) do
    begin
      if(table1.FieldValues['mois']=table2.fieldvalues['mois']) and
        (table1.FieldValues['JOUR']=table2.FieldValues['JOUR']) then
      begin
        table2.edit;
        table2.FieldValues['C_J']:=table1.FieldValues['C_J'];
        table2.post;
        break;
      end
      else
        table1.next;
    end;
    table2.next;
  end;
end;

Aidez moi svp :roll:

26/10/2008, 09h22
Just-Soft

Salut;

peux-tu donner une petite explication à ton code?

je pense qu'il vaut mieux décrire ce que tu veux faire sans trop te soucier de ton code puis en verra par la suite.

NB : la prochaine fois que tu postes ton code penses à utiliser le # il sert à mieux formater ton code.

Bonne Chance.

Salut
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.BitBtn1Click(Sender: TObject); begin table2.First; while (not table2.Eof) do begin table2.first; // ... table2.next; end; end;
Avec ce table2.first inclus dans la boucle, tu dois déjà te retrouver avec une boucle sans fin. :aie:

@+ Claudius

26/10/2008, 10h59
lindalina

merci j'ai regler le bp