رسالة خطأ في حلقة أثناء البحث في الجدول

[medreg]

اتمنى اخي ان يفيدك هذا
فهي محاولة بما اشار عليك به اخي Kachwahed

PHP كود :

procedure TForm1.SpeedButton1Click(Sender: TObject);
Begin
  data.table2.First;
  data.table2.FindKey([data.table7Num_A.Value]);
  while (Data.table7Num_A.Value=data.table2Num_A.Value) and not(data.table2.Eof) do
  begin
      If data.Article.FindKey([data.table2Code_P.Value,2])then
      Begin
      data.Article.Edit;
      data.ArticleQtitte_stock.Value:=data.ArticleQtitte_stock.Value+ data.Table2Qtite_A.Value;
       data.Article.Post;
      end;
  data.table2.Next;
  end;
end; 


أو

PHP كود :

procedure TForm1.SpeedButton1Click(Sender: TObject);
Begin
  data.table2.First;
  data.table2.FindKey([data.table7Num_A.Value]);
  while (Data.table7Num_A.Value=data.table2Num_A.Value) and not(data.table2.Eof) do
  begin
      If data.Article.FindKey([data.table2Code_P.Value,2])then
      Begin
    data.Article.Edit;
    data.ArticleQtitte_stock.Value:=data.ArticleQtitte_stock.Value+ data.Table2Qtite_A.Value;
    data.Article.Post;
      end;
  end;
  data.table2.Next;
end; 


وبالتوفيق