reportviewer上的图表不会自动加载

时间:2009-07-16 04:10:51

标签: asp.net reporting-services parameters multi-select

报告查看器上的图表不会加载,除非我在传递组合参数时单击查看报告按钮。

只有在报表查看器上单击“查看报表”按钮后,才能正确传递所有选定参数并报告加载。 我在ASP.NET页面上有这个报表查看器,我的参数是使用从另一个ASP.NET页面创建的会话变量传递的,该页面具有我的参数形式,用户输入并选择输入参数。

我有日期(日期选择器)和公司名称(带复选框的多选组合列表)作为输入参数。

除非报告参数来自多选组合列表,报告才能正常工作。

这是我用于将报告参数建立为会话变量的代码。

Session("labname") = Nothing
    Session("fractionid") = FractionDropDownList.SelectedValue
    For intloopindex As Integer = 0 To LabNamesCheckBoxList.Items.Count - 1
        If LabNamesCheckBoxList.Items(intloopindex).Selected Then
            Session("labname") &= LabNamesCheckBoxList.Items(intloopindex).Text & ControlChars.CrLf
        End If
    Next
    Session("sdate") = sdate.text
    Session("edate") = edate.text

这是我将这些会话变量作为参数传递给reportviewer控件的代码。

如果不是IsPostBack那么

        Dim fractionparam As String
        Dim sdateparam As String
        Dim edateparam As String
        Dim regionparam As String
        Dim labnameparam As String

        regionparam = Session("regionid")
        fractionparam = Session("fractionid")
        labnameparam = Session("labname")
        sdateparam = Session("sdate")
        edateparam = Session("edate")


        Dim rp(3) As Microsoft.Reporting.WebForms.ReportParameter

        'rp(0) = New Microsoft.Reporting.WebForms.ReportParameter("regionid", regionparam)
        rp(0) = New Microsoft.Reporting.WebForms.ReportParameter("fractionid", fractionparam)
        rp(1) = New Microsoft.Reporting.WebForms.ReportParameter("labname", labnameparam)
        rp(2) = New Microsoft.Reporting.WebForms.ReportParameter("sdate", sdateparam)
        rp(3) = New Microsoft.Reporting.WebForms.ReportParameter("edate", edateparam)

        Me.ReportViewer1.ServerReport.SetParameters(rp)

    End If

1 个答案:

答案 0 :(得分:0)

我终于得到了解决方案。

我的旧代码犯了一个重大错误。使用多值参数,我试图将组合框列表中的所有选定值作为一个字符串发送。

但我应该使用字符串数组来存储多值参数并使用会话变量发送它们。

包含以下代码。

dim count as integer
For intloopindex As Integer = 0 To LabNamesCheckBoxList.Items.Count - 1
        If LabNamesCheckBoxList.Items(intloopindex).Selected Then
          count=count+1
        End If    
dim labnames(count) as array

dim j as integer
j=0

for i as integer=0 to labnamescheckboxlist.items.count-1
labnames(j)=labnamescheckboxlist.item(i).text
j=j+1
next

    Session("labname") = Nothing
    Session("labname")=labnames

    Session("fractionid") = FractionDropDownList.SelectedValue
    Session("sdate") = sdate.text
    Session("edate") = edate.text

在目标页面中,read将所有会话变量作为参数传递,如前面的代码所示。