Discussion :

[lindalina]

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

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
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

[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.

[Cl@udius]

Salut

Code :

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

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.

@+ Claudius

[lindalina]

merci j'ai regler le bp