الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ReportViewer كود

بدأه mahmoud.com في 30 نوفمبر 2013 · 3 رد · 595 مشاهدة · في تصميم وبرمجة التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

 

 قمت بتصميم تقارير بواسطة الكريستال ريبورت 4 - فيجوال 6

 

اريد كود عرض الريبورت فى اداة CrystalActiveXReportViewer

#2

الكود اللى مستخدمة بس بيظهر رسالة بكل اسماء الحقول واوقات بظهر خطاء ويغلق لبرنامج

End Sub
Dim txtObj As TextObject
Dim ReportFile As String
ReportFile = App.Path & "\test1.rpt"
Set m_Report = m_Application.OpenReport(ReportFile)
m_Report.Database.Tables(1).Location = App.Path & "\work.mdb"

CRViewer.ReportSource = m_Report
CRViewer.Zoom 1
CRViewer.ViewReport
Screen.MousePointer = vbDefault
#3

بحثت كتير وعدلت بالكود لكن لم يعمل

 

 

اريد الكود او الطريقة ضرورى

 

اريد عرض التقرير فى الاداة CrystalActiveXReportViewer

 

والكود المرسل لم يعمل بشكل جيد

مواضيع مشابهة