هذا الكود وضعته الى الحدث form load
rp1 هو اسم الكائن crystal report4,2
وCRViewer91 هى اسم الاداة picture
و "C:\takea.rpt هو المسار الخاص بالتقرير الذى صممته باستخدام crystal report4,2
والمطلوب يا جماعة بشكل ملح هو عرض التقرير داخل الاداة picture التى اسمها فى البرنامج CRViewer91
علما ياننى استخدم الاداة data control فى ربط قاعدة البيانات
Private Sub Form_Load() rp1.ReportSource = "C:\takea.rpt" undefined CRViewer91.Zoom 70 CRViewer91.ViewReport Screen.MousePointer = vbDefault End Sub
وشكرا
تم تعديل هذه المشاركة بواسطة Xacker في 15 سبتمبر 2006 في 06:06
ارجوا الافادة
ولكم جزيل الشكر
شكرا اخى الكريم على كرمك فانا اكن كل تقدير لك وللمنتدى الذى اعتبرة منارة للعلم وقد جربت الكود واعطى لى الرسالة التالية فماذا تعنى
method or data member no found
فماذا تعنى
وماذا يعنى Viewer هل هو الاداة picture ام ماذا
واريد ان وضح ان الاصدار المثبت مع vb6 هو crystal report 4,2 ولا يوجد الاختيار crysatl report 9 او 10 فهل هناك مشكل فى ذلك ام هى نفس الطريقة
وشكرا مرة اخرى اخى الكريم فانا سعدت جدا اهتمامك وشعورك الطيب
مرسل لك المشروع ارجوا التعديل عليه وشكرا
ارجوا الافادة
اخي الكريم أنا لا استخدم هذا الاصدار crystal report 4,2 فهو قديم جدا لهذا لا استطيع تحميل المثال وتقديم المساعدة لك كما أنك لن تجد من يرد عليك و السبب نفسه إلا من عنده الاصدار نفسه لهذا حاول ان تحصل على اصدار 10 على الاقل لوجود دورة كامله عنه بالمنتدى ... كما أن الموجود لديك هي اداة التقرير فقط وليس البرنامج كامل لتجد أداة crystal Viewer كما في الاصدار 9
هذا والله اعلم
تم تعديل هذه المشاركة بواسطة HnHn في 19 سبتمبر 2006 في 06:48
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةشكرا اخى الكريم وجزاك الله خيرا
ولكنى املك كريستال ريبورت 10 ولكن المتاح فى vb6 هو الاصدار 4,2 فما الحل
ولا ادرى ما سبب اعتراض البرنامج على هذة العبارة
Dim Report As New CrystalReport1
وشكرا
هذا الموضوع مغلق.