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

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

ثانياً: احب أن أشكر أعضاء هذا المنتدى الرائع جداً على ما يقدمه من علم ينفع وينتفع به جميع اعضاء المنتدى الجميل جزاكم الله جيراً وجعله فى موازين حسناتكم

ثالثاً:عندى مشكلة فى كود وهى عند الضغط على زر يملأ الـ List item يملأها ولكن بدون أول Record
على سبيل المثال
الـ List item تملأ من No_stu
ويحتوى عمود No_stu على هذه القييم
111
222
333
444
وعند الضغط على رز ملأ الـ List item تملأ هكذا
222
333
444


رابعاً:عند الضغط على رز ملأ الـ List item وتظهر النتائج وبعد ذلك عندى زر لحساب نتائج الطلاب عند الضغط عليه يظهر لى رسالة بها خطأ والعكس

ملحق لسيادتكم الفورم وهذا هو الـ TABLE الذى عملته

CREATE TABLE STU_STUDY
(NO_STU   NUMBER(4),SUBJECT  VARCHAR2(8 BYTE),MARK NUMBER(3),RESULT VARCHAR2(20 BYTE));
INSERT INTO STU_STUDY VALUES (111,'CC',90,'');
INSERT INTO STU_STUDY VALUES (222,'AA',70,'');
INSERT INTO STU_STUDY VALUES (333,'NN',50,'');
INSERT INTO STU_STUDY VALUES (444,'EE',40,'');

وهذا هو الـ TRIGER الخاص بملأ الـ List item

declare
i number(3);
a number(3);
b varchar2(20);
cursor cc is select no_stu,subject from stu_study;
begin
open cc;
clear_list('LIST9');
i:=0;
loop
	fetch cc into a,b;
	exit when cc%notfound;
	add_list_element('LIST9',i,a,;
	i:=i+1;
end loop;
close cc;
end;

وهذا هو الـ TRIGER الخاص بحساب نتائج الطلاب

declare
x number(5);
		cursor cr is select no_stu,mark,result from stu_study;
begin
open cr;
execute_query;
go_block('STU_STUDY');
loop
	fetch cr into 
	:stu_study.no_stu,
	:stu_study.mark,
	:stu_study.result;
	x:=:stu_study.mark;
	if x>50 then
		:stu_study.result:='S';
	elsif x<50 then
		:stu_study.result:='F';
	ELSIF  x=null then
		:stu_study.result:=NULL;
	end if;
		next_record;
exit when cr%notfound;
end loop;
close cr;
end;

أرجو من سيادتكم حل هذه المشاكل
ولكم جزيل الشكر

رابط تحميل الفورم

http://file7.9q9q.net/Download/42966456/FORM_LIST.rar.html

جرب الكود ده لملئ ال LIST

DECLARE
   CURSOR y IS SELECT  no_stu,subject from stu_study; BEGIN CLEAR_LIST('LIST9');
   FOR I IN y LOOP
      ADD_LIST_ELEMENT('LIST9',1,I.subject,I.no_stu);
   END LOOP;
 END;

ايهاب وجدى

مشكور أخى الفاضل
جزاك الله خيراً
وجعله فى موازين حسناتك
بارك الله فيك وزادك من علمه كمان وكمان

دمت فى رعاية الله