28-07-2017, 09:44 AM
السلام عليكم ورحمه الله وبركاته
جمعه مباركه عليكم ياشباب
سؤالي
عندي حوالي 4 جدوال( t1,t2,t3,t4 ) في كل جدول 3 اعمده وهي الجدول الاول a1,b1,c1 والثاني a2,b2,c2 والثالث a3,b3,c3
اريد ان انسخ مافي 4 جداول ( ملحوظه الجداول مختلفه في عدد سجلاتها ) الي جدول t5 والذي يحتوي علي نفس الاعمده وهي
a1,b1,c2,a2,b2,c2,a3,b3,c3,a4,b4,c4
توصلت لهذا الكوود ولكن لجدول واحد
وعندما حاولت ان اكرر الكووود للجدول الثاني ولكن المشكلة ان عملية النسخ الثانية لا تبدء من اول الجدول ولكن تبدء من نهاية اخر سجل
بارك الله فيكم
جمعه مباركه عليكم ياشباب
سؤالي
عندي حوالي 4 جدوال( t1,t2,t3,t4 ) في كل جدول 3 اعمده وهي الجدول الاول a1,b1,c1 والثاني a2,b2,c2 والثالث a3,b3,c3
اريد ان انسخ مافي 4 جداول ( ملحوظه الجداول مختلفه في عدد سجلاتها ) الي جدول t5 والذي يحتوي علي نفس الاعمده وهي
a1,b1,c2,a2,b2,c2,a3,b3,c3,a4,b4,c4
توصلت لهذا الكوود ولكن لجدول واحد
كود :
var i: integer;
begin
T1.First;
while not T1.Eof do begin
T5.Insert;
for i := 0 to T1.Fields.Count do
t5.FieldByName('a1').AsString := t1.FieldByName('name').AsString;
t5.FieldByName('b1').AsInteger := t1.FieldByName('setnumber').AsInteger;
t5.FieldByName('c1').AsInteger := t1.FieldByName('lgna').AsInteger;
t5.Post;
t2.Next;
end;وعندما حاولت ان اكرر الكووود للجدول الثاني ولكن المشكلة ان عملية النسخ الثانية لا تبدء من اول الجدول ولكن تبدء من نهاية اخر سجل
بارك الله فيكم
