+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن نسخ عدة اعمدة من جدول لآخر (/showthread.php?tid=6324)
كيف يمكن نسخ عدة اعمدة من جدول لآخر - amer mohamed - 16-07-2014
السلام عليكم يا اخوان
لديا عدة جداول paradox لكن الجداول ليست بنفس عدد الاعمدة فهناك جداول بها الشهر،السنة،السلعة،سعر الوحدة،الكمية،السعر الاجمالي،التخفيض
وهناك اخرى بها الشهر،السنة،السلعة،سعر الوحدة،الكمية،tva ،الرقم،السعر الاجمالي
فقمت بانشاء الجدول الذي سأجمع فيه كل الجداول بكل اسماء الاعمدة الموجودة اي الشهر،السنة،السلعة،سعر الوحدة،الكمية،tva ،الرقم،السعر الاجمالي،التخفيض
كيف يمكن نسخ الجداول بحيث يكون النسخ في نفس اسماء الاعمدة ويترك الاعمدة الغير موجودة فارغة
شكرا مسبقا
كيف يمكن نسخ عدة اعمدة من جدول لآخر - amer mohamed - 17-07-2014
حاولت استعمال هذا الكود
فواجهة مشكلة كتابة خانة واحدة من الجدول الاول من كل سطر
في سطر كامل من الجدول الثاني
هل من تعديل لو تكرمتم
كود :
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;