مرحبا شباب كيفكم؟؟
الأمثلة التي تخص الـ compo box و list item مش قابلة تنزل

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

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

انا سويت شرح بسيط بالصور و سريع و ارفقت ملف الامثله علشان الاخوه يستفادو
حشرف كيفيه انشاء List Item و استرجاع البيانات فيها من خلال كيرسر يعنى هى حتكون non database item

1- نقوم بإنشاء داتا بلوك حنعرض فيه Empno , Ename , Job من جدول الــــ موظفين Emp كما بالشكل


2- سنقوم بإنشاء List_item على Control Block و نسميها باسم dept لتصبح بالشكل الاتى


3- نقوم بكتابه تريجر على Form instance ليسترجع بيانات الاداره فى List_Item

declare

cursor list_dept is
select deptno , dname
from dept;

List_I item;

begin

list_I:=find_item('dept');
for List_R in List_dept loop
ADD_LIST_ELEMENT(List_I,list_dept%rowcount,List_R.deptno||' '||List_R.dname,
List_R.Deptno);
end loop;
end;

كما بالصوره


-4 نضع تريجر على List_item " when list changed" بحيث لما اختار قيمه من الليست يعرض لى القيم المرتبطه بيها فى جدول الموظفين يعنى لما اختار الاداره يعرض لنا الموظفين اللى تابعين ليها و الكود هو

begin
set_block_property('emp',onetime_where,'deptno='||:dept);
go_block('emp');
execute_query;
end;

كما بالصوره



5- بعد ذلك نذهب الى List_item و نفتح نافذ الخصائص الخاصخ بيها و منها نذهب الى الخاصيه elements in list و نضغط على الزر more و نقوم بحذف القيمه الموضوعه بها لتصبح Null حتى نتمكن من عمل compile و تشغيل الفورم

لتصبح كما بالصوره




وتم ارفاق الملف الخاص بها

LIST_ITEM.zip

هناك طريقة أسهل يا أخي وهي أنك تحول الItem الذي تريده من خصائصه من نوع Text Item الى نوع List Item وذلك لضمان ربطه بقاعدة البيانات

مظبوط كلامك يا ماكس على حسب نوعه انا اللى شرحته ذى مقلت non database item و التانيه انك حتعمل عادى جدا داتا بيز بلوك و تحول اى تكست انت عاوزه من الخصائص الى ليست ايتم بس انا افترضت انه ده ممكن يكون المثال اللى كان طالبه الاخ أسامه

و شكرا للمعلومه ياماكس