[حريف برمجة]

(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