[mohamedgadain61]

(02-04-20, 10:14 PM)حريف برمجة نعم مظبوط أشتغل معي الكود الله يجزاك خير والشكر لأخي ابوليى والجميععند المحاولة باضافة عدد 2 Parameter ليس لها علاقة بال DATASET  داخل ريبورت فيور قمت بالتعديل داخل ال الكود بهذا الشكل ولاكن طلعت لي مشكلة بالبرنامجاسم البرميتر الأول : phoneاسم البرميتر الثاني : ADDSER report.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("phone", "phone")) report.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("ADDSER", "ADDSER"))هل في اضافات اخرى المفروض اني اضيفها على محتوى الكود كتب :

(02-04-20, 08:23 AM)mohamedgadain61 كتب : مرحبا اخواني عندما قمت بأضافة DataSet للمشروع يعطيني خطأ عندما اقوم بتنفيذ الكود

علما بأني قمت بالأضافة اللازمة والتعديل على الكود

مرفق صورة الخطأ والمشروع


  Dim myReport As New MyLocalReport
        myReport.ReportName = "Report4.rdlc"
        myReport.DataSources = New ReportDataSource("testDataSet", CType(testDataSet.table1, DataTable))

        myReport.Print()

اولاً ملف Reporting لا يجب التعديل عليه ممكن تغيير اسمه ولكن محتواه يبقى ثابت .

ثانياً : انته اضفت للتقرير داتا سيت بأسم DataSet1 وفي الكود لم تقم بتعبئتها بالبيانات لعرضها في التقرير حسب الموضح ادناه :

        myReport.DataSources = New ReportDataSource("testDataSet", CType(testDataSet.table1, DataTable))

والصحيح يكون كالتالي :

        report.DataSources.Add(New ReportDataSource("DataSet1", testDataSet.Tables("table1")))

على العموم إليك الكود كامل مع ادراج ملف ريبورتينق Reporting إلى المشروع وحذف السابق .

كود :

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.table1TableAdapter.Fill(Me.testDataSet.table1)
       Me.ReportViewer2.RefreshReport()


       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       Dim myRPTForm As New ReportViewer
       Dim report As LocalReport = New LocalReport()
       Dim myPRT As New Reporting
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

       'مسار التقرير وادراج البيانات لمصدر التقرير
       report.ReportPath = Application.StartupPath & "\Report4.rdlc"
        report.DataSources.Add(New ReportDataSource("DataSet1", testDataSet.Tables("table1")))

       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

       'امر الطباعة المباشرة بدون عرض التقرير
       myPRT.Export(report)
       myPRT.m_currentPageIndex = 0
       myPRT.Print()

   End Sub