[احمد جعبلي]

كيف يمكنني استدعاء تقرير كريستال ريبورت من داخل فيجوال بيسك 6 مع وجود بارامترات؟

[sanyor77]

هذا كود مراجعة مكتملة لعرض تقرير Crystal Reports مع المعلمات في Visual Basic 6:

1. أولاً، قم بإضافة مكونات "Crystal Reports" و"Crystal Report Viewer" إلى "Toolbox" الخاص بك.
   
2. ضع "Crystal Report Viewer" على النموذج.
   

الآن، يمكنك استخدام الكود التالي:

 

PHP كود :

Option Explicit

' قم بإضافة مرجع لـ Crystal Reports
' من خلال الضغط على "Project" ثم "References" واختيار
' "Crystal Reports x.x ActiveX Designer Run Time Library" حيث x.x هو رقم الإصدار

Private Sub Form_Load()
    ShowReport
End Sub

Private Sub ShowReport()
    Dim crApp As CRAXDRT.Application
    Dim crReport As CRAXDRT.Report
    Dim strReportPath As String

    Set crApp = New CRAXDRT.Application
    strReportPath = "C:\مسار\الى\تقريرك.rpt"

    Set crReport = crApp.OpenReport(strReportPath)

    crReport.ParameterFields.GetItemByName("Parameter1").AddCurrentValue "قيمة المعلمة 1"
    crReport.ParameterFields.GetItemByName("Parameter2").AddCurrentValue "قيمة المعلمة 2"

    CRViewer1.ReportSource = crReport
    CRViewer1.ViewReport
End Sub 


هذا الكود يقوم بتحميل وعرض تقرير Crystal Reports عند تحميل النموذج. يمكنك تعديل المعلمات وقيمها حسب الحاجة. لا تنسى تعديل مسار التقرير وأسماء المعلمات وقيمها وفقًا لمتطلباتك.

[احمد جعبلي]

شكرآ لك اخي العزيز على الرد وجزاك الله خير

[sanyor77]

(30-03-23, 06:04 PM)احمد جعبلي كتب : شكرآ لك اخي العزيز على الرد وجزاك الله خير