سؤال حول اضافة اسطر في DBGRIDE

[Mustapha29]

أولا في سؤالك الأول قلت أن لديك قاعدة البيانات أكسس
ثم بعثت تطبيق لست أدري ما نوع قاعدة البيانات
و لم تعقب على هذا الكود الذي أرى فيه مطلبك و الذي يعمل بشكل جيد

كود :

Bouton1Click ADOTable1.First; If ADOTable1.EOF then Le_Dernier := 1 else begin ADOTable1.Last; le_Dernier := ADOTable1Num.Value + 1; end; ADOTable1.Insert; ADOTable1Num.Value := Le_Dernier