15-07-2017, 07:53 AM
(آخر تعديل لهذه المشاركة: 15-07-2017, 08:37 AM بواسطة أبو معاذ.
تعديل السبب: إضافة الوسم كود
)
![[صورة: 640855495.png]](http://www12.0zz0.com/2017/07/15/09/640855495.png)
الف شكر لك الاخ أبو معاذ عملت بالطريقة المشار اليها من طرفكم لكن للأسف لم تنجح معي والخطأ كما ترونه في الصورة
شكرا من لا يشكر الناس لا يشكر الله
لقد تم ايجاد الحل
وللفائدة
كود :
procedure TForm6.Button2Click(Sender: TObject);
begin
IF MessageDlg(' هل تريد فعلا تفريغ الجدول نهائيا.؟ ', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
Data1.ABSTable2.Close;
Data1.ABSTable2.EmptyTable;
Data1.ABSTable2.open;
end;
end;