ممكن تعديل الكود

var
i,m : integer;
str : string;
begin
with IBTable1 do
begin
IBSQL1.ExecQuery;
First;
while not IBTable1.Eof do
begin
IbTable2.Insert;
with IBQuery1 do
begin
Close;
Open;
str := Fields.Fields[0].AsString;
end;
if(str = '')then
str := '0'
else
str := IntToStr(StrToInt(str)+ 1);

IBTable2.Fields[0].Value := str;
m:= IBTable1.FieldCount;
for i:= 1 to IbTable2.Fields.Count - 3 do
IBTable2.Fields.Fields.Value := Fields.Fields.Value;

IbTable2.Post;
Next;
end;
IbTable2.Refresh;
Application.MessageBox('The Data has been Transfered Successfully','assurance',MB_OK);
end;

قم باستخدام خاصية الكود لكي ينعرض الكود بشكل واضح

للرفع

بطريقه اخرى كيفيه تكرار صف فى جدول بعدد معين (محدد)

من اهم الاسباب التي تدعو الاخرين الى الاجابة على سؤالك هو وضوح السؤال فارجوا منك ان توضح السؤال قدر ما تستطيع

لان الصورة تصل مشوشة عبر الكتابة

بالنسبة للتكرار انظر الكود التالي يشرح لك العملية تماما

var i: integer;
begin
table1.first;
while not table1.eof do
begin
i:= 1;
while i< table1.field[0].value do
begin
i := i + 1;
// هنا تضع الكود الذي يقوم بعملية الادخال على الجدول الاخر مثلا
table2.insert;
tabel2.fields[0].value:= table1.fields[0].value
//تضع الحقول التي تريد نقلها
tabel2.post;
end;
table1.next;
end;
end;

يمكن ان تعتبر هذا الكود هو توضيح لطريقة العمل و عليك ان تصيغه لكي يناسب ما تريد كأن تستبدل اسماء الجدوال

و تضع اسماء الحقول الخ

شكرا وصلت الفكره