16-12-20, 01:59 AM
(آخر تعديل لهذه المشاركة : 16-12-20, 04:04 AM {2} بواسطة عبد العزيز البسكري.)
السّلام عليكم و رحمة الله و بركاته
سادتي الأفاضل
أرجو المساعدة و املي بكم كبير لحل هاته الإشكالية التي أرهقتني
قد تكون ربّما هذه المرّة الثانية بحياتي التي جرّبت بها الطباعة من خلال الريبورت فيور
تتبّعت تماما مثلما طرحه الشارح على اليوتوب
قمت بإضافة الداتا سيت
Dataset1
أسندت لها
DataTable1
ثم أعمدة حسب ما هو موجود بجدول قاعدة البيانات
أضفت ما أضفت على صفحة التقرير
إستعملت هذا الكود للطباعة و طبعا الكود هو ذاته المستعمل أثناء الشرح
لكن للأسف عند الضغط على زر الامر تظهر لي هاته الرّسالة
بحثت هنا و هناك
Copy If Never
وضعت رابط التقرير تماما بالحرف الواحد داخل الكود بعد وضع التقرير بمجلد خاص
عملت إيقاف للبارامترات بشكوكي قد تكون هي السبب
لكن لا حياة لمن تنادي
بارك الله فيكم و لكم مقدما و جزاكم خير الجزاء
كود :
Sub Load_Billing_Report(ByVal Sql As String)
Dim RptDs As ReportDataSource
Me.ReportViewer1.RefreshReport()
Try
With ReportViewer1.LocalReport
.ReportPath = Application.StartupPath & "\FolderReport\Report1.rdlc"
.DataSources.Clear()
End With
Dim Ds As New DataSet1
Dim Da As New SqlDataAdapter
Cn.Open()
Da.SelectCommand = New SqlCommand("SELECT * From TBL_INVOICES_POS_DETAILS Where InvoiceNo Like '" & Me.TxtInvoiceNo.Text & "'", Cn)
Da.Fill(Ds.Tables("DataTable1"))
Cn.Close()
With Frm_Billing
Dim PBillTo As New ReportParameter("PBillTo", .TxtBill.Text)
Dim PAdresse As New ReportParameter("PAdresse", .TxtAdresse.Text)
ReportViewer1.LocalReport.SetParameters(PBillTo)
ReportViewer1.LocalReport.SetParameters(PAdresse)
End With
RptDs = New ReportDataSource("Dataset1", Ds.Tables("DataTable1"))
ReportViewer1.LocalReport.DataSources.Add(RptDs)
ReportViewer1.SetDisplayMode(Microsoft.Reporting.WinForms.DisplayMode.PrintLayout)
ReportViewer1.ZoomMode = ZoomMode.Percent
ReportViewer1.ZoomPercent = 100
'ReportViewer1.ZoomMode = ZoomMode.PageWidth
'Catch ex As Exception
'Cn.Close()
'MsgBox(ex.Message, vbInformation)
'End Try
Catch e As System.Exception
Dim inner As Exception = e.InnerException
While Not (inner Is Nothing)
MsgBox(inner.Message)
inner = inner.InnerException
End While
End Try
End Sub
قناتنا على اليوتوب