اضافة زر يقوم بادخل محتوى edit الى جدولين في نفس الوقت

[Med-01]

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

كيف اضافة زر يقوم بادخل محتوى edit الى جدولين في نفس الوقت t1 .t2 نوع الجدوين paradox

[King SofT]

وعليكم السلام

اضن ان الكود واضح لا يحتاج لشرح

كود :

procedure TForm1.Button1Click(Sender: TObject); begin Table1.Append; Table2.Append; Table1.FieldValues['Field']:=Edit1.Text; Table2.FieldValues['Field']:=Edit1.Text; Table1.Post; Table2.Post; end;

[Med-01]

جزاك الله خيرااا اخي الكريم
الكود شغال
ياريت تشرح

كود :

FieldValues['Field']

[King SofT]

نستطيع ان نسند قيمة لحقل ما من الجدولد بعدة طرق منها :

كود :

Table1.FieldValues['اسم الحقل']:=Edit1.Text; او Table1Filed.Value:=Edit1.Text; او Table1.Fields[ترتيب الحقل].Value:=Edit1.Text;[B][/B]

[Med-01]

شكرا على التوضيح هل تقصد بترتيب

كود :

3 2 1 nom prenom aderesse

متلا لو نريد adresse
فنقوم باسناد رفم 3 حسب ترتبيه في الجداول

كود :

Table1.Fields[3].Value:=Edit1.Text;

[King SofT]

نعم لكن الترتيب يبدا من ال 0