07-09-16, 02:19 PM
08-09-16, 12:18 PM
......................
08-09-16, 01:07 PM
08-09-16, 01:47 PM
لقدت شاهدت هذه هي الطريقة اليديوية
انا اعمل من خلال الكود
انا اعمل من خلال الكود
08-09-16, 08:03 PM
السلام عليكم ورحمة الله وبركاته
هذا الخطاء ناتج عن عدم تمرير البيانات المطلوبة من الجدول الى التقرير
جرب هذا المثال
هذا الخطاء ناتج عن عدم تمرير البيانات المطلوبة من الجدول الى التقرير
جرب هذا المثال
كود :
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
09-09-16, 02:27 PM
انا متاكد من وجود مشكلة في تحديد مصدر البيانات للداتا سيت الموجودة في للتقرير datasource.add
لكن لا اعلم ما هي
لكن لا اعلم ما هي
10-09-16, 03:19 PM
او من الداتا سورس