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