Я хочу распечатать несколько записей студентов в rdlc с помощью VB.NET
я хочу распечатать несколько записей ваучеров студенческого сбора в один клик.
тот код, которым я собираюсь поделиться с вами, с помощью этого кода я могу распечатать только один ваучер студенческой платы, но я хочу распечатать весь ваучер платы, который присутствует в данной таблице sql.
Что я уже пробовал:
<pre>Public Class Employe_Led_report Public Function itemQillareport() As DataSet Dim dsData As DataSet Try dsData = DalHelper.ExecuteDataset(m_ConString, CommandType.Text, "SELECT dbo.PrintChallan.*, dbo.School_Info.* FROM dbo.PrintChallan CROSS JOIN dbo.School_Info where PrintChallan.Reg_num='" & StidentFee.TextBox14.Text & "' and PrintChallan.Received_Amount='0' and PrintChallan.Fea_year='" & StidentFee.TextBox4.Text & "' and School_Info.Id='1'") Catch ex As Exception Return Nothing End Try Return dsData End Function Private Sub Employe_Led_report_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load ReportViewer1.LocalReport.ReportEmbeddedResource = "KTC.Report36.rdlc" Dim rdsNumberofReferrals As New Microsoft.Reporting.WinForms.ReportDataSource() rdsNumberofReferrals.Name = "DataSet1" Dim dsBrands As DataSet = itemQillareport() rdsNumberofReferrals.Value = dsBrands.Tables(0) ReportViewer1.LocalReport.DataSources.Add(rdsNumberofReferrals) ReportViewer1.Update() Dim newPageSettings As New System.Drawing.Printing.PageSettings newPageSettings.PaperSize = New Printing.PaperSize("Custom", 820, 1150) newPageSettings.Landscape = True newPageSettings.Margins = New System.Drawing.Printing.Margins(30, 10, 10, 10) ReportViewer1.SetPageSettings(newPageSettings) Me.ReportViewer1.ZoomPercent = 90 Me.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.Percent Me.ReportViewer1.RefreshReport() End Sub End Class
Dave Kreskowiak
Репост - https://www.codeproject.com/Questions/5061521/I-want-to-export-all-student-fee-voucher-in-one-PD