السلام عليكم الاعضاء الاعزاء

 

لدي two tab الأولى من نوع تابيولر والأخرى من نوع فورم

عملت Btn في Tab الثاني (من نوع فورم) عند الضغط عليه يقوم بجلب جميع السجلات في Tab الاول (من نوع تابيولر) ويضعها في TextItem في نفس Tab

 

الكود كان عبارة كيرسر يقرأ جميع السجلات ويضعها في TextItem لكن يقوم بوضع السجل الأول فقط

ملاحظة:

TextItem من نوع Varchar2(2000) وخاصيته Multi Line

 

Two Tab عبارة عن Forieng Key  لجدول على نفس الشاشة 

ارجو ممن يعرف الحل ان يساعدني وشكرا

محنا مشعارفين كتبت ايه عشان نعرف نساعدك؟

ملخص اللي كتبته

اني بدي انقل البيانات من بلوك (تابيولر فيه اكتر من سجل) الى TextItem واحد في بلوك آخر

أي يتم تجميع بيانات الأعمدة كاملة لكل السجلات في TextItem

 

ان شالله يكون المطلوب واضح

انت بتقول كتبت كرسور. ورينا كتبت ايه. 

 

declare

	x summary.case_summary%type;

	cursor s1

	is 

	select :PERSONS.NAME||' '||:PERSONS.RELATION||' ' ||:PERSONS.NATIONALITY||' '||:PERSONS.BIRTH_DATE||' '||:PERSONS.ID||' '||:PERSONS.CASE||' '||:PERSONS.NOTES 

	from PERSONS

	where RECORD_NO = :general.record_no; 

begin

	open s1;

	LOOP

	fetch s1 into x;

:summary.case_summary := x;



  EXIT WHEN :SYSTEM.LAST_RECORD ='TRUE';

   --NEXT_RECORD ;

END LOOP;

end;

 

declare
	x summary.case_summary%type;
	cursor s1
	is 
	select :PERSONS.NAME||' '||:PERSONS.RELATION||' ' ||:PERSONS.NATIONALITY||' '||:PERSONS.BIRTH_DATE||' '||:PERSONS.ID||' '||:PERSONS.CASE||' '||:PERSONS.NOTES 
	from PERSONS
	where RECORD_NO = :general.record_no; 
begin
	open s1;
	LOOP
	fetch s1 into x;
:summary.case_summary := x;

  EXIT WHEN :SYSTEM.LAST_RECORD ='TRUE';
   --NEXT_RECORD ;
END LOOP;
end;

الاخطاء:

----------

1- ليه بتروح تسيليكت الداتا وهى ادامك اصلا على الشاشة. وبعدين لو هتسيليكت داتا يبقى تسيليكت اعمدة مش ايتمز, ده لو هما اصلا موجودين فى الجدول. 

2- واضح ان كل حاجة على بلوك واحد لانك مقلتش GO_BLOCK وطبعا ناقص first_record; 

3- المفروض تعين للأيتم case_summary قيمة نفسه || x> 

4- next_record; بس كده الايتم بتاعك الى عاوز تحط فيه الداتا هيتكرر طبعا. 

5- متسميش اى اوبجكت اسماء مش مفهومة زى x. 

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

الصح:- هحطلك الداتا فى فاريابل وانت بقى ابقى عدل واعمل بيها الى انت عايزه. 

-----

DECLARE 
:RESULT VARCHAR2(200); 
BEGIN 
FIRST_RECORD; 
LOOP
RESULT := :PERSON_NAME; 
EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE'; 
NEXT_RECORD; 
END LOOP; 
END; 

تم تعديل 7 نوفمبر 20178 سنة بواسطة eslam elbyaly

الف شكر ياهندسة

في ميزان حسناتك الله يجزيك الجنة
 

جزانا واياكم.