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

اخواني الاكارم انا عامل شاشة للموظفين مثلا بحيث تعرض الشاشة مثلا 20 موظف ووضعت حقل
(CHECK_SELECT) من نوع check بجانب اول عمود في هذه الشاشة, ووضعت في نهاية الشاشة حقل (ub_no) يقوم بجمع الحقول التي تم وضع check عليها بحيث انني اريد حذفها .

وبتالي عند وضع check على 5 صفوف تأخذ ال ub_no قيمة 5 .

ووضعت زر بحيث انه عند الضغط عليه يتم حذف الصفوف التي تم تحديدها .

الكود

DECLARE
X  NUMBER := 0;
BEGIN
FOR I IN 1..:UB_NO LOOP
GO_RECORD(I);
IF :CHECK_SELECT = 1 THEN
DELETE_RECORD;
X := X+1;
END IF;
END LOOP; 
END;

المشكلة تكمن لدي في GO_RECORD(I);
حيث ان هذا الكود مثلا يقوم بالبحث في اول خمس صفوف ويحذف من هو عليه علامة check .
وانا اريده ان يتوجه للصفوف التي عليها علامة check ويقوم بحذفها .


ارجوا ان تكون المشكلة واضحة .... طالب عونكم

جرب هذا :

BEGIN
  FIRST_RECORD;
  WHILE :SYSTEM.LAST_RECORD = 'FALSE'
  LOOP
IF :CHECK_SELECT = 1 THEN
	 DELETE_RECORD;
END IF;
NEXT_RECORD;
  END LOOP;
END;

وأخبرني بالنتيجة



شكراً

اخي العزيز اشكرك على سرعة الاستجابة , بالنسبة للكود الذي وضعته للاسف لا يعمل بكفائة , فمثلا قمت باختيار السجلات 1,2,3 وعند الحذف تم فقط
حذف 1 , 3 وبقاء السجل رقم 2 .

وعند اختيار السجلات 4,5,6,7,8 يتم حذف 4,6,8 فقط ولا يتم حذف 5 , 7 .

لا عرف والله محتاج حل هذه المشكلة ...