كيف يمكن نسخ عدة اعمدة من جدول لآخر

[amer mohamed]

السلام عليكم يا اخوان
لديا عدة جداول paradox لكن الجداول ليست بنفس عدد الاعمدة فهناك جداول بها الشهر،السنة،السلعة،سعر الوحدة،الكمية،السعر الاجمالي،التخفيض
وهناك اخرى بها الشهر،السنة،السلعة،سعر الوحدة،الكمية،tva ،الرقم،السعر الاجمالي

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

كيف يمكن نسخ الجداول بحيث يكون النسخ في نفس اسماء الاعمدة ويترك الاعمدة الغير موجودة فارغة
شكرا مسبقا

[amer mohamed]

حاولت استعمال هذا الكود
فواجهة مشكلة كتابة خانة واحدة من الجدول الاول من كل سطر
في سطر كامل من الجدول الثاني
هل من تعديل لو تكرمتم

كود :

procedure TForm1.Button8Click(Sender: TObject);
var
C2:string;
i,j:integer;
begin
table2.Open;
while not table1.Eof do
begin
j:=table1.Fields.InstanceSize-1;
for i:=0 to j do
begin
C2:=table1.Fields[i].DisplayName;
append;
table2.FieldByName(C2).AsString:=table1.FieldByName(C2).AsString;
TABLE2.post;
end;
table1.Next;
table2.Next;
end;
end;