منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مساعد في انشاء دالة متغيرة لعرض التقرير

مرحبا
احاول ان اعمل دالة لعدم تكرار كتابة كود عرض التقرير ولاكن لاأعرف اين الخطأ

كود :

   Sub Preview_report1(sqlstr As String, ReportName As String)

        'تعريف متغير لتحدد نوع الطابعة

        Dim prnt As New System.Drawing.Printing.PrinterSettings

        'تعريف متغير لجلب اسم التقرير

        Dim cryRpt As New ReportDocument

        'جلب الأتصال للتقرير

        Dim adp = New SqlClient.SqlDataAdapter(sqlstr, SqlConn)

        Dim ds = New DataSet

        adp.Fill(ds)

        Dim dt = ds.Tables(0)

        'التأكد من وجود بيانات

        If dt.Rows.Count = 0 Then

            MsgBox("لايوجد أي بيانات لعرضها في التقرير")

            Exit Sub

        End If

        cryRpt.SetDataSource(dt)

        'جلب اسم الطابعة الافتراضية

        prnt.PrinterName = My.Settings.Printer

        cryRpt.PrintToPrinter(prnt, New System.Drawing.Printing.PageSettings(prnt), False)

    End Sub

وكود الإستدعاء في الفورم كالتالي

كود :

       Preview_report1("select * From PosRpt where PosInvoice='" & PosInvoice.Text & "'", "CrystalReport1")

ولكن يظهر لدي الخطأ التالي :

كود :

CrystalDecisions.CrystalReports.Engine.LoadSaveReportException: 'Invalid report file path.'

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

alaa.alnaser91