السلام عليكم
احنا هنا ان شاء الله هنعمل لسته بالـ DEPARTMENTS اللي موجود في الجدول بتاع الـ DEPARTMENTS الموجود في السكيمة بتاعه HR

*** الشرح
انت طبعا اولا هتعمل فورمة جديدة في الديفيلوبر وتحط فيها LIST ITEM
وبعد كده هتيجي في الOBJECT NAVIGATOR وتعمل كليك يمين علي TRIGGERS اللي تحت الفورمة علي طول وتختار من اللسته اللي هتطلع SMART TRIGGERS ومنها WHEN_NEW_FORM_INSTANCE
وتكتب الكود ده

DECLARE
RGID RECORDGROUP;
GROUP_STATUS NUMBER;
BEGIN
-- طبعا احنا بنستخدم ريكورد جروب عشان نملا بيها اللسته.. فانا هنا بشوف لو الريكورد جروب دي موجودة قبل كده ولا لا.. لو موجودة الاي دي بتاعها بيرجع لي وبعد كده بسمحها
RGID:=FIND_GROUP('DEPARTMENTS_GROUP');
IF NOT ID_NULL(RGID) THEN DELETE_GROUP(RGID); END IF;
-- بعد ماشيلتها وكله تمام.. دلوقتي هعمل الريكورد جروب اللي هستخدمها في ملا اللسته عن طريق الكويري
RGID:=CREATE_GROUP_FROM_QUERY('DEPARTMENTS_GROUP','SELECT DEPARTMENT_NAME,TO_CHAR(DEPARTMENT_ID) FROM DEPARTMENTS');
-- هنا انا بملا الريكورد جروب بالكويري اللي فات
GROUP_STATUS :=POPULATE_GROUP(RGID);
-- هنا بخلي اللسته تقرا من الريكورد جروب
POPULATE_LIST('BLOCK3.LIST4',RGID);
END;

شكرا على مجهودك .. و ننتظر منك المزيد

السلام عليكم
شكرا يا اخ سامح علي الرد ودي حاجة كبيرة عندي انك ترد والموضوع يعجبك
رجاء شخصي..........
يا جماعة اللي يدخل يشوف الموضوع ياريت يضيف رد يقول الموضوع عجبه ولا لا...... شايفه كويس ولا وحش
عشان الردود دي هيه اللي بتدي الواحد دافع انه يكمل ويكون هدفه انه يحط حاجة جديدة في المنتدي الرائع ده
شكرا يا جماعة
وانتظروا المزيد ان شاء الله رب العالمين
سلام
-----Mohammed Sabry ----------[وسط][/وسط]