[adel2012]

السلام عليكم ورحمة الله وبركاته
هذا الخطاء ناتج عن عدم تمرير البيانات المطلوبة  من الجدول الى التقرير
جرب هذا المثال

كود :

Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.Reporting
Imports Microsoft.ReportingServices
Imports Microsoft.Reporting.WinForms
Imports StocksSystem.DBStocksDataSet
Imports StocksSystem.DBStocksDataSetTableAdapters


Private Sub FrmRepPreview_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load


      '=================================================================================================================
      Dim rptDataSource As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
      'Dim rptDataSource As ReportDataSource
      '"RepDataPersonal" '"RepInvDetials"
      Dim ds As New DataSet
      Dim da As New SqlClient.SqlDataAdapter

      Try
          With Me.ReportViewer1.LocalReport
              ' .ReportPath = "Reports\" & strReport & ".rdlc"
              .ReportEmbeddedResource = "StocksSystem." & strReport & ".rdlc"
              .DataSources.Clear()
              ReportViewer1.ProcessingMode = WinForms.ProcessingMode.Local
          End With

          Select Case strReport

              Case "Repport_Salary"
                  Dim parms(1) As Microsoft.Reporting.WinForms.ReportParameter
                  ' parms(0) = New Microsoft.Reporting.WinForms.ReportParameter("monthdate", FrmAdd_action.DateTime.Value.Month.ToString)
                  'parms(1) = New Microsoft.Reporting.WinForms.ReportParameter("yeardate", FrmAdd_action.DateTime.Value.Year.ToString)
                  ReportViewer1.LocalReport.SetParameters(parms)

          End Select
          If SqlRep <> Nothing Then
              ds = MyClss.GetRecordsByDataSet(SqlRep, "")
              rptDataSource = New ReportDataSource("DBStocksDataSet", ds.Tables(0))
              Me.ReportViewer1.LocalReport.DataSources.Add(rptDataSource)
              Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
              Me.ReportViewer1.SetDisplayMode(Microsoft.Reporting.WinForms.DisplayMode.PrintLayout)
              Me.ReportViewer1.ZoomMode = ZoomMode.Percent
              Me.ReportViewer1.ZoomPercent = 100
              ReportViewer1.LocalReport.Refresh()
              Me.ReportViewer1.RefreshReport()
          Else
              MessageBox.Show("اسف !!! هناك خطاء اثناء الاستعلام عن التقرير الرجاء التحقق من البيانات بشكل صحيح", "حطاء في الاستعلام", MessageBoxButtons.OK, MessageBoxIcon.Stop)
              Exit Sub
          End If


      Catch ex As Exception
          MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
      End Try
  End Sub