<pre> Public Function itemQillareport() As DataSet
Dim dsData As DataSet
Try
dsData = DalHelper.ExecuteDataset(m_ConString, CommandType.Text, "SELECT dbo.MonthlyFeeGenrate.*, dbo.School_Info.* FROM dbo.MonthlyFeeGenrate CROSS JOIN dbo.School_Info where MonthlyFeeGenrate.registration_id='" & StidentFee.TextBox14.Text & "' and MonthlyFeeGenrate.Received_Fee='0' and MonthlyFeeGenrate.Fee_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.Report38.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