Dim rptDocument As New ReportDocument
If Request.QueryString("rpt") = "rptTest" Then
rptDocument = New rptTest
ElseIf Request.QueryString("rpt") = "rptMain" Then
rptDocument = New rptMain
ElseIf Request.QueryString("rpt") = "rptLast" Then
rptDocument = New rptLast
...
End If
更改为
rptDocument = New Request.QueryString("rpt")
查询字符串数据将与对象名称匹配。如何动态声明这个变量?