4,816
社区成员
发帖
与我相关
我的任务
分享
If RadioButton6.Checked = True Then
ReportViewer1.Reset()
ReportViewer1.LocalReport.ReportPath = "Report_1.rdlc"
ElseIf RadioButton5.Checked = True Then
ReportViewer1.Reset()
ReportViewer1.LocalReport.ReportPath = "Report_2.rdlc"
End If
Dim rep As New Microsoft.Reporting.WinForms.ReportDataSource("syDataSet_z_data", rs.Tables(0))
ReportViewer1.LocalReport.DataSources.Clear()
ReportViewer1.LocalReport.DataSources.Add(rep)
Me.ReportViewer1.RefreshReport()
Dim temp_year_rq1 As New Microsoft.Reporting.WinForms.ReportParameter("year_rq1", year_rq1)
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter() {temp_year_rq1})
Dim temp_year_rq2 As New Microsoft.Reporting.WinForms.ReportParameter("year_rq2", year_rq2)
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter() {temp_year_rq2})
Dim temp_month_rq1 As New Microsoft.Reporting.WinForms.ReportParameter("month_rq1", month_rq1)
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter() {temp_month_rq1})
Dim temp_month_rq2 As New Microsoft.Reporting.WinForms.ReportParameter("month_rq2", month_rq2)
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter() {temp_month_rq2})
Dim temp_je As New Microsoft.Reporting.WinForms.ReportParameter("je", money)
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter() {temp_je})
Dim temp_rq1 As New Microsoft.Reporting.WinForms.ReportParameter("rq1", rq1)
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter() {temp_rq1})
Dim temp_rq2 As New Microsoft.Reporting.WinForms.ReportParameter("rq2", rq2)
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter() {temp_rq2})
Me.ReportViewer1.RefreshReport()