本帖最后由 人生就是修炼 于 2022-2-18 22:55 编辑
Dim file_name As String = "..\..\PageReport1.rdlx"
Dim pageReport As New GrapeCity.ActiveReports.PageReport(New System.IO.FileInfo(file_name))
Dim pageDocument As New GrapeCity.ActiveReports.Document.PageDocument(pageReport)
pageReport.Report.ReportParameters(0).DefaultValue.Values.Clear()
pageReport.Report.ReportParameters(0).DefaultValue.Values.Add(编号.Text)
Viewer1.LoadDocument(pageDocument)
|