ReportDataSource

[besto1a]

All I have the following code to populate a reportviewer in Windows application, the reports (rdlc) are local to the application. I am unsure what needs to go where I have ?marks. My dataset is called OpsReportingDataSet.xsd and the table within it is called tbl_EWTCases.

Dim varStart, varEnd

varStart = CDate(Me.Dst.Value)
varEnd = CDate(Me.dE.Value)

Dim ds As New OpsReportingDataSet

Dim ta As OpsReportingDataSetTableAdapters.tbl_EWTCasesTableAdapter = New OpsReportingDataSetTableAdapters.tbl_EWTCasesTableAdapter
ta.Fill(ds.tbl_EWTCases, varStart, varEnd)

'Set the path of the rdlc document
Dim reportPath As String

reportPath = "Reports/IncomingCases.rdlc"

Dim rpt1v As New ReportViewer

rpt1v.Dock = DockStyle.Fill
Me.SplitContainer1.Panel2.Controls.Add(rpt1v)

rpt1v.LocalReport.DataSources.Add(New ReportDataSource(?, ?))

'Set the active report path of the ReportViewer object
rpt1v.LocalReport.ReportPath = reportPath