السلام عليكم ،،

اخواني الاعزاء لدي 2 تايبل وحدة Form والثانية Tabular عندما اعمل Search كل شيء
يتم على ما يرام لكن البيانات الخاصة بالـ Tabular يظهر لي اخر ريكورد فقط مع انه يوجد اكثر
من خمس Row لرقم الوظيفي التي تم الاستعلام عنه .

ارجو مساعدتي

سوف اضع الكود

ملاحظة الـ Sick هي الـ Tabular

DECLARE

n number:=:search;
CURSOR GETmyhr IS

SELECT
m.staff,m.first_name,m.last_name,m.civil_id,m.mobile,m.gender,
s.staff,S.DATE_OF_SICK,s.end_of_sick,s.duration,s.note
FROM myhr m,sick s
where s.staff = m.staff and
s.staff like '%'||n||'%';

BEGIN

FIRST_RECORD;
OPEN GETmyhr;
LOOP
FETCH getmyhr INTO :myhr.staff,:first_name,:last_name,:civil_id,:mobile,:gender,
:sick.staff,:date_of_sick,:end_of_sick,:duration,:note;
SET_TAB_PAGE_PROPERTY('page9', enabled, property_false);
exit when GETmyhr%NOTFOUND ;
END LOOP;
Next_record;
CLOSE GETmyhr;
END;


شكراً لكم

اخوكم عبد الخالق

تم تعديل 12 نوفمبر 200619 سنة بواسطة danny

أخى الحبيب ضع next_record قبل end loop مباشرة وليس بعدها
ويمكن عمل الأتى أيضا تلقائيا بدون كود بإستخدام ال master detail راجع هذا الشبتر فى كتاب الفورمز.

السلام عليكم

اخي العزيز جربت الطريقة لكنها لم تنجح معي ايضاً للاسف

شكراً

danny
بطريقة ماستر ديتيل أسهل...جرب هذه الطريقة... وشكراً أي خدمة أخرىوأنا تحت الخدمة

السلام عليكم ،،

اخواني الاعزاء شكرا لكم على مساعدتكم لي حيث اني تمكنت من حل المشكلة وذلك من خلال نصائحكم لي ، ولكن عند عمل الـ Search تظهر البيانات المطلوبة في الـ Tabular وكل شيء اوكي لكنه هناك دائما Row واحد يتكرر يظهر مرتين في الـ Tabular . يعني اذا كان عندي في التايبل عدد 5 row يظهر عندي على الـ Tabular عدد 6 في واحد منهم بيتكرر ، ما الحل ؟؟؟؟

هذا هو الكود

وجزاكم الله خيراً


Declare

cursor c is select m.staff,m.first_name,s.staff,s.date_of_sick,s.end_of_sick,s.duration,s.note
from myhr m,sick s
where s.staff=m.staff and
s.staff=:search.sear;


v_staff sick.staff%type;
v_date_of_sick sick.date_of_sick%type;
v_end_of_sick sick.end_of_sick%type;
v_duration sick.duration%type;
v_note sick.note%type;

begin
if :search.sear is null then

message('You must enter the department number');
message('You must enter the department number');

else

open c;

loop

fetch c into :myhr.staff,:myhr.first_name, v_staff,v_date_of_sick,v_end_of_sick,v_duration,v_note;

:search.staff:=v_staff;
:search.date_OF_SICK:=v_date_of_sick;
:search.end_of_sick:=v_end_of_sick;
:search.duration:=v_duration;
:search.note:=v_note;
next_record;
exit when c%notfound;

end loop;
end if;

close c;
exception
when no_data_found then
message('no data');

end;


وشكراً لكم اخواني

منعا لتكرار السطر الأخير جرب الكود التالي :
fetch c into :myhr.staff,:myhr.first_name, v_staff,v_date_of_sick,v_end_of_sick,v_duration,v_note;
exit when c%notfound; مكانها هنا وليس بعد وضع القيم في البلوك!!!!!!!!!!!!!!!!!!!!!!!
:search.staff:=v_staff;
:search.date_OF_SICK:=v_date_of_sick;
:search.end_of_sick:=v_end_of_sick;
:search.duration:=v_duration;
:search.note:=v_note;
next_record;
end loop;
end if;

 

اخي arnoukfo

 

السلام عليكم ،،

 

العملية تمت بنجــــــــــــــــــــــــــــــــــــــاح شكراً لك

واخيراً انحلت المشكلة

 

ما قصرت وجزاك الله خير .

 

اخوك عبد الخالق

لا شكر على واجب