السلام عليكم
قمت بتصميم تقارير بواسطة الكريستال ريبورت 4 - فيجوال 6
اريد كود عرض الريبورت فى اداة CrystalActiveXReportViewer
السلام عليكم
قمت بتصميم تقارير بواسطة الكريستال ريبورت 4 - فيجوال 6
اريد كود عرض الريبورت فى اداة CrystalActiveXReportViewer
الكود اللى مستخدمة بس بيظهر رسالة بكل اسماء الحقول واوقات بظهر خطاء ويغلق لبرنامج
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
بحثت كتير وعدلت بالكود لكن لم يعمل
اريد الكود او الطريقة ضرورى
اريد عرض التقرير فى الاداة CrystalActiveXReportViewer
والكود المرسل لم يعمل بشكل جيد
سبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");