Code Snippet
Private Sub PreviewRelClientes(ByVal oTable As DataTable)
Try
'1 passo: definindo o relat¢rio a ser visualizado
rvPreview.LocalReport.ReportEmbeddedResource =
"AWorksCE.rdlCustomer.rdlc"
'2 passo: definindo o DataSource do relat¢rio
Dim myReportDataSource As ReportDataSource = _
New ReportDataSource("dsCustomer", oTable)
rvPreview.LocalReport.DataSources.Add(myReportDataSource)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub