rptViewer.Reset() Dim rptS As New ReportDataSource rptS.Name = "DataSet1" rptS.Value = binSource rptViewer.LocalReport.DataSources.Add(rptS) rptViewer.LocalReport.ReportEmbeddedResource = "QLAnChi." & strRptName & ".rdlc" rptViewer.LocalReport.EnableExternalImages = True Dim para As New List(Of ReportParameter) For i As Integer = 0 To strPar.Length - 1 para.Add(New ReportParameter(strPar(i), strVal(i))) Next rptViewer.LocalReport.SetParameters(para) rptViewer.RefreshReport()
rptViewer.LocalReport.DataSources.Refresh()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)