بتاريخ: 15 مارس 201016 سنة comment_187302 السلام على من اتبع الهدى انا عرف انه هيبقى موضع طويل فى الرد بتاعه بس معلش اتعبو معايا المشكله انى عندى list_item محتاج اعرض فى بيانات من RECORD_GROUPعملت PROCEDURE PROCEDURE REG IS X RECORDGROUP ; P NUMBER; BEGIN X:=FIND_GROUP('DEP_REG'); IF NOT ID_NULL(X)THEN DELETE_GROUP('DEP_REG'); END IF; X:=CREATE_GROUP('DEP_REG',GLOBAL_SCOPE,'SELECT DEPARTMENT_NAME,DEPARTMENT_ID FROM DEPARTMENTS'); P:=Populate_Group(X); END; تمام كده واشتغل وعملت تريجر مفروض ان يعملQUERY ويعرض ليست REG; Populate_LIST('LIST','DEP_REG'); EXECUTE_QUERY; علما انى ليست انا مغيرتش حاجه فى خصائص list و مفروض ان يعرض DEPARTMENT_NAME و يرجع DEPARTMENT_ID فى الجدولو جزاكم الله خير تقديم بلاغ
بتاريخ: 16 مارس 201016 سنة comment_187322 سلام عليكم ورحمة اللهاخي مصطفيجرب هذه الطريقة 1- list-item مثلاً اسمة dept_list وفي الخصائص انه ليس database item 'NO2- مثلاُ اكتب الكود الاتي في when new form instance declaregroup_id RecordGroup;status number;List_id Item:=Find_Item('dep_list');begin group_id:=Find_Group('depart'); if not Id_Null(group_id) then delete_group(group_id); end if;--Department List group_id:=Create_Group_From_Query('depart','select department_name,lpad(department_id,2,0) from departments order by department_name'); status:=Populate_Group(group_id);clear_list(List_id); Populate_List(List_id,'depart'); end; مع تغيير الرقم 2 في الكود lpad(department_id,2,0) اعلاه الي طول size حقل department_id3- لارجاع قيمة department_id في الحقل الخاص به يجب ان تكتب هذا الكود مثلاً عند when list changewhen list change :Block_name.department_id:=to_number(substr(:dept_list,1,2)); تقديم بلاغ
بتاريخ: 16 مارس 201016 سنة comment_187369 بص كان ف حاجة ف ال syntax عندك غلط ..كنت ناسى from_query وماينفعش بقى خارج البروسيدر تقوله املا لسته بالريكوردجروب كذاا انت تعمل الكود دا وتمرر له براميتر عشان يكون اسم اللستة PROCEDURE REG(m varchar2) IS X RECORDGROUP ; P NUMBER; BEGIN X:=FIND_GROUP('DEP_REG'); IF NOT ID_NULL(X)THEN DELETE_GROUP('DEP_REG'); END IF; X:=CREATE_GROUP_from_query('DEP_REG','SELECT DEPARTMENT_NAME,to_char(DEPARTMENT_ID) FROM DEPARTMENTS'); P:=Populate_Group(X); Populate_LIST(m,x); end ;بعد كدااا مثلا ف الحدث when_new_form_instanceتستدعيها reg('block3.list4'); شوفها وهيا شغالة ف الفورما LIST.rar تقديم بلاغ
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.