تعديل قيمة حقل في Table

procedure TForm1.Button1Click(Sender: TObject);
begin

table1.open;
table2.open;

while not(table1.eof) do begin
  if (table2.locate('qte',table1.fieldbyname('qte').value,[])) then
	  begin
		 table1.edit;
		 table1.fieldbyname('qte'),value:=table2.fieldbyname('qte'),value;
		 table1,post;
	  end;
	table1.next;
end;

end;

ما تحتاجه هو عبارة UPDATE بسيطة كالتالي:

UPDATE Tbl1, Tbl2 SET Tbl1.Qte=Tbl2.Qte
WHERE Tbl1.ID=Tbl2.ID

ومن الممكن أن يكون الربط أكثر تعقيدا

السلام عليكم ورحمته الله وبرلكنه

اشكركم اخوتي الأعزاء والله يفتح عليكم مما تقدومه لشباب العربي والذي يحتاج لدعم والعون حتى ينهض من سباته

شكرا لــــــ hez124 ايضا FH

الكود الأول يعمل جيد جدا بعد التعيل الطقيق

begin

Table1.open;

Table2.open;

Table1.First;

while not(Table1.eof) do begin

if (Table2.locate('NPRODUIT',Table1.fieldbyname('NPRODUIT').value,[])) then

begin

Table2.edit;

Table2.fieldbyname('QUN').value:=STOCK.fieldbyname('QUN').value;

Table2.post;

end;

Table1.next;

end;

end;

end.

السلام عليكم ورحمته الله وبرلكنه

اشكركم اخوتي الأعزاء والله يفتح عليكم مما تقدومه لشباب العربي والذي يحتاج لدعم والعون حتى ينهض من سباته

شكرا لــــــ hez124 ايضا FH

الكود الأول يعمل جيد جدا بعد التعيل الطفيف

begin
Table1.open;
Table2.open;
Table1.First;
while not(Table1.eof) do begin
  if (Table2.locate('ID',Table1.fieldbyname('ID').value,[])) then
	  begin
		 Table2.edit;
		 Table2.fieldbyname('Qte').value:=STOCK.fieldbyname('Qte').value;
		 Table2.post;
	  end;
	Table1.next;
end;

end;

YACIN كتب:

السلام عليكم ورحمته الله وبرلكنه

اشكركم اخوتي الأعزاء والله يفتح عليكم مما تقدومه لشباب العربي والذي يحتاج لدعم والعون حتى ينهض من سباته

شكرا لــــــ hez124 ايضا FH

الكود الأول يعمل جيد جدا بعد التعيل الطفيف

begin
Table1.open;
Table2.open;
Table1.First;
while not(Table1.eof) do begin
  if (Table2.locate('ID',Table1.fieldbyname('ID').value,[])) then
	  begin
		 Table2.edit;
		 Table2.fieldbyname('Qte').value:=STOCK.fieldbyname('Qte').value;
		 Table2.post;
	  end;
	Table1.next;
end;

end;