مشكلة في الايعاز Delete

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

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

شكراً لك اخي الكريم

مع التأكيد على ما قاله الأخ alaaqasem

ضع في بداية برنامجك الأمر التالي ولمرة واحدة فقط

Set deleted on

حيث يقوم باخفاء السجلات التي تم التأشير عليها بأنها محذوفة

بينما Off يقوم باظهارها ( وليس استرجاعها )

ثم اعمل Refresh للـ Grid

والسلام

الموضوع ببساطة الرجاء التأكد من الاتى

1- التأكد من انك قد اخترت الجدول المراد حذف سجل منه قبل تنفيذ الامر بمعنى

select table1

delete

2-اذا كنت عامل buffer للجدول الرجاء التأكد من عمل update للجدول من buffer

وبلغنى بالنتيجة

بســم الله الـرحمــن الرحيــم

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

ببساطة أخي الكريم يجب عليك أن تضع المؤشر على السطر المراد حذفه

ودالك باستعمال SEEK.....IF FOUND()....DELETE....PACK أو SET FILTER TO.....DELETE ALL.....PACK أو DELETE ALL FOR.....PACK

وهدا مثال بسيط

</STRONG>
<SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt"></SPAN>Do Case<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Case </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">test="<SPAN dir=rtl lang=AR-SA>جديد</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>"<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">If Alltrim</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(<SPAN dir=rtl lang=AR-SA>اسم</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>)<></SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Space</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(10) And </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Alltrim</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(<SPAN dir=rtl lang=AR-SA>لقب</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>)<></SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Space</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(10) And </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Alltrim</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(<SPAN dir=rtl lang=AR-SA>رقم</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>)<></SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Space</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(10)<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Append Blank<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Replace </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">nom </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">With Alltrim</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(<SPAN dir=rtl lang=AR-SA>اسم</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>);<SPAN dir=rtl lang=AR-SA><o:p></o:p></SPAN></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">prenom </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">With Alltrim</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(<SPAN dir=rtl lang=AR-SA>لقب</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>);<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">num </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">With Alltrim</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(<SPAN dir=rtl lang=AR-SA>رقم</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>)<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Else<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Messagebox</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">("<SPAN dir=rtl lang=AR-SA>الطلب مرفوض</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>"+</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Chr</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(13)+"<SPAN dir=rtl lang=AR-SA>تأكد من ملأ جميع الخانات</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>",0+16,"<SPAN dir=rtl lang=AR-SA>خطأ في إدخال<SPAN style="mso-spacerun: yes">  </SPAN>البيانات</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>")<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Endif<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Case </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">test="<SPAN dir=rtl></SPAN><SPAN dir=rtl><SPAN dir=rtl></SPAN> <SPAN lang=AR-SA>تعديل</SPAN></SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>"<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Select </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">2<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Set Order To </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">cle </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Of </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">demande.</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Cdx<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Seek Alltrim</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(<SPAN dir=rtl lang=AR-SA>اسم</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>)<SPAN dir=rtl lang=AR-SA><o:p></o:p></SPAN></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">If Found()<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">rep=</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Messagebox</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">("<SPAN dir=rtl lang=AR-SA>هل تريد<SPAN style="mso-spacerun: yes">  </SPAN>تعديل هده البيانات</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>",4+64,"<SPAN dir=rtl lang=AR-SA>تأكيد</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>")<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none; tab-stops: 35.4pt 70.8pt 106.2pt 141.6pt 315.1pt" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">If </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">rep=6<SPAN style="mso-tab-count: 1">	</SPAN><o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">If Alltrim</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(<SPAN dir=rtl lang=AR-SA>اسم</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>)<></SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Space</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(10) And </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Alltrim</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(<SPAN dir=rtl lang=AR-SA>لقب</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>)<></SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Space</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(10) And </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Alltrim</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(<SPAN dir=rtl lang=AR-SA>رقم</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>)<></SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Space</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(10)<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Replace </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">nom </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">With Alltrim</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(<SPAN dir=rtl lang=AR-SA>اسم</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>);<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">prenom </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">With Alltrim</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(<SPAN dir=rtl lang=AR-SA>لقب</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>);<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">num </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">With Alltrim</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(<SPAN dir=rtl lang=AR-SA>رقم</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>)<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Else<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Messagebox</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">("<SPAN dir=rtl lang=AR-SA>الطلب مرفوض</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>"+</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Chr</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(13)+"<SPAN dir=rtl lang=AR-SA>تأكد من ملأ جميع الخانات</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>",0+16,"<SPAN dir=rtl lang=AR-SA>خطأ في إدخال<SPAN style="mso-spacerun: yes">  </SPAN>البيانات</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>")<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Endif<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Endif<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Endif<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Case </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">test="<SPAN dir=rtl></SPAN><SPAN dir=rtl><SPAN dir=rtl></SPAN> <SPAN lang=AR-SA>حذف</SPAN></SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>"<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Select </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">2<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Set Order To </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">cle </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Of </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">demande.</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Cdx<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Seek Alltrim</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">(<SPAN dir=rtl lang=AR-SA>اسم</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>)<SPAN dir=rtl lang=AR-SA><o:p></o:p></SPAN></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">If Found()<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">rep=</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Messagebox</SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">("<SPAN dir=rtl lang=AR-SA>هل تري<SPAN style="mso-spacerun: yes">  </SPAN>حذف هده البيانات</SPAN><SPAN dir=ltr></SPAN><SPAN lang=AR-SA><SPAN dir=ltr></SPAN> </SPAN>",4+64,"<SPAN dir=rtl lang=AR-SA>تأكيد</SPAN><SPAN dir=ltr></SPAN><SPAN lang=AR-SA><SPAN dir=ltr></SPAN> </SPAN>")<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">If </SPAN><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: black; FONT-SIZE: 10pt">rep=6<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Delete<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Pack<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Endif<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Endif<o:p></o:p></SPAN></P> <P style="MARGIN: 0cm 0cm 0pt" class=MsoNormal><SPAN style="FONT-FAMILY: 'Courier New'; COLOR: blue; FONT-SIZE: 10pt">Endcase
<STRONG>

بســم الله الـرحمــن الرحيــم

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

ببساطة أخي الكريم يجب عليك أن تضع المؤشر على السطر المراد حذفه

ودالك باستعمال SEEK.....IF FOUND()....DELETE....PACK أو SET FILTER TO.....DELETE ALL.....PACK أو DELETE ALL FOR.....PACK

وهدا مثال بسيط