مشكلتي مع List Item

السلام عليكم..برأي لا يمكن عمل متل هذا النوع عند تعرف الجدول..ولكن يمكن عمل Trigger يقوم بهذا العمل

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

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

الحل بسيط جدا

المثال التالي يوضح الفكرة

عبارة عن ليست ايتم تعرض اسماء الوظائف من جدول الوظائف srv_job

وتستخدمها لتغدية حقل كود الوظيفة فى جدول الموظفين

انشيئ list item وسمها باسم thg

2- انشيئ record group ولتكن باسم rg_job

3- افتح شاشة خصائص recorcd group ثم افتح مجموعة الخائص المعنونة بـ functional

واما خاصية record group query "هذة الخاصية تكتب فيها جملة الإستعلام التى ستغذي مجموعة السجلات record group بالبيانات" واكتب الجملة التالية

select all job,to_char(job_id) from srv_job order by 1

4- من شاشة object navigator انشئ program unit جديدة باسم popup

واكتب داخلها الكود التالي

PROCEDURE popup(listname varchar2,groupname varchar2) IS

rg_id recordgroup;

Rg number;

BEGIN

rg_id :=find_group(groupname);

f id_null(rg_id) then

message ('list not found');

end if;

clear_list(listname);

rg :=populate_group(groupname);

populate_list(listname,groupname);

exception when others then

message('cannot populate list:'||listname||'with record group'||groupname);

END;

الكود السابق يقوم باستقبال list item ويقوم بتعبئته بالريكورد جروب التى انشانها فى الخطوة السابقة

5- انشئ تريجر جديد على مستوى الفورم من نوع preform

وكاتب داخله الكود التالي

popup('thg','rg_job');

يقوم الكود التالي بتعبئة القائمة بالقيم المستدعاه بواسطة الريكورد جروب فى

thg list item

لأتنسى وضع اى قيمة داخل الليست ايتم حتى لاتظهر سالة الخطأ اثناء فتح النموذج

خاصية list elements الخاصةبالليست ايتم

لاتنسونا من صالح الدعاء

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

ليه ما يكون الحل أبسط هيك:

select culomn_1 from tabel1 into :block1.text_item;

والرموز كما يلي:

tabel1اسم الجدول الذي تريد الاستجاع منه

:block1اسم البلوك الذي يوجد فيه مربع النص الذي اريد اسرجاع القيمةفيه داخل الفورم

text_item مربع النص الذي تريد استرجاع القيمة فيه

اسم العمود الذي اخذ بيانات منهculomn_1

لم تعمل معى الكود الخاص بالبروسيدر

ماهي رسالة الخطأ حتى نساعدك ؟