لو انا قمت بعمل list item واريد ان احضر ارقام الادارات فيه لما الفروم يتعملها lodaing انا دخلت على الترجر الي اسمها when_new_form_instance وبعدين بيدين exception لما اعمل رن للبرنامج ارجواااااااا المساعده وده الكود الي كتبته
begin
select deptno into :list19 from dept
end
هل الكود ده صح

ارجواااااااااا المساعده

وين المساعده ياشباب

لعمل ال List بطريقة أوتوماتيكية دون ادخال القيم بالطريقة اليدوية ، فأننا نستخدم أجراء ال ADD_LIST_ELEMENT .

و يتكون أجراء ال ADD_LIST_ELEMENT كالتالى :-

PROCEDURE ADD_LIST_ELEMENT(list_name VARCHAR2, list_index, NUMBER,list_label VARCHAR2, list_value VARCHAR2);

حيث أن ال list_name هو أسم بند ال List اللى انت عملته فى الفورم .
وال list_index هو المحدد لقيمة فهرس ال List و التى تكون دائماً 1 .
اما ال list_label فهو يكون من نوع varchar2 و هو الذى يظهر فى قائمة ال List عند فتحها .
أما ال list_value فهى القيمة الفعلية او الحقيقية التى تكون هى أساس تكوين قائمة ال List .

و بالنسبة لما تريده ... فهو يفترض أن يكون هكذا :-

بعد ما قمت بتحويل ال DEPTNO الى List Item قم بالتالى :-

فى تريجر WHEN-NEW-FORM-INSTANCE أكتب :-

declare
cursor cc is select * from dept;
begin
for i in cc loop
	add_list_element('DEPT.DEPTNO',1,i.DEPTNO,i.DEPTNO);
	exit when cc%notfound;
end loop;
end;

و قبل ان تشغل الفورم قم بالدخول على ال Property Palette لل List item و عند Elements in List أضغط على الزر اللى جنبها و أمسح القيمة المكتوبه من فوق و القيمة المكتوبه من تحت ..... و من ثم قم بتشغيل الفورم .

و بذلك هتشتغل معاك بدون أى مشاكل ..... حمل ملف ال DEPTNO_LIST.zip المرفق لزيادة التوضيح .

--------------------------------------------------------------------------

مثال عملى على أسكيمة ال HR بجدول ال Employees :-

أعمل فورم عادية و اعمل بداخلها List و ليكن أسمها LIST4 و فى تريجر WHEN-NEW-FORM-INSTANCE أكتب :-

declare
cursor C is select * from employees order by first_name;
begin
for i in c loop
	add_list_element('BLOCK3.LIST4',1,i.first_name||' '||i.last_name,i.employee_id);
	exit when c%notfound;
end loop;
end;

و قبل ان تشغل الفورم قم بالدخول على ال Property Palette لل List item و عند Elements in List أضغط على الزر اللى جنبها و أمسح القيمة المكتوبه من فوق و القيمة المكتوبه من تحت ..... و من ثم قم بتشغيل الفورم .

و كما نرى فأن الكود يقوم بأظهار الاسم الاول و الثانى للموظف فى ال List Item من خلال Cursor لجلب بيانات الجدول و من ثم وضع بيانات الحقل المطلوب بال List .

حمل ملف ADD_LIST_ELEMENT.zip المرفق ، فهو المثال العملى المطبق فيه الكود السابق .

و بالتوفيق

ADD_LIST_ELEMENT.zip

DEPTNO_LIST.zip

جزاك الله خير ....وفقكم الله ...اعانكم الله ...جعلكم ممن ينشرون العلم

مشكوراااااااااااااا جدا اخي الحبيب على التوضيح

عندي استفسار اخر كيف اقوم بنقل كل العناصر من الموجوده من listItem من نوع Tlist الى Tlist اخر انا قمت بعمل 4 ازارا مثل(>,<,>>,<<) انا قمت بنقل عنصر بعنصر في الزرين التاليين (>,<)
ولم استطع نقل الكل العناصر دفعه واحده ارجووووووووووووووووووووووووو المساعده

up

up

اوريد رد عاجل لو سمحتم

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

إضافة بسيطة يا أخي هاني البروفسور ماشاء الله ، علي الدالة

add_list_element('DEPT.DEPTNO',1,i.DEPTNO,i.DEPTNO);

القيمة التي تظهر علي الشاشة هي الأولي أما القيمة الخلفية في الثانية مثال

أنت تريد أن تظهر للمستخدم إسم الإدارة وتكون رقمها في الخلف فستكون الدالة في كود الأخ هاني كالتالي

add_list_element('DEPT.DEPTNO',1,i.DNAME,i.DEPTNO);

انا عاوز حل المشكله دي
عندي استفسار اخر كيف اقوم بنقل كل العناصر من الموجوده من listItem من نوع Tlist الى Tlist اخر انا قمت بعمل 4 ازارا مثل(>,<,>>,<<) انا قمت بنقل عنصر بعنصر في الزرين التاليين (>,<)
ولم استطع نقل الكل العناصر دفعه واحده ارجووووووووووووووووووووووووو المساعده

أخى العزيز \ sasa87

أرجو أن ترفق ملف ال fmb و انا هحاول أظبطهولك ........ و شكراً

اوكي

انا شغال على جدول emp ولقد قمت برفم الملف

ده لينك التحميل الفورمه
http://www.mediafire.com/?jnkgd6nnxxj

تم تعديل 7 أغسطس 200817 سنة بواسطة sasa87

اين الرد

ارجوااااا المساعده انا قمت برفع الملف في اللينك التالي
http://www.mediafire.com/?jnkgd6nnxxj

اين الرد

عزيزى الكود ناقص كثير
أنصحك بزيارة هذا الرابط ..
فيه مثال لما تريده تماما ..
بـالـتـوفـيـق
http://www.araboug.org/ib/index.php?showtopic=10570

مشكوراااااا وابارك الله فيك