报表名字用动态传递就可以了呀很简单嘛

解决方案 »

  1.   

    Private Sub Dropdownlist1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dropdownlist.SelectedIndexChanged
    Dim Rpt as ReportDocument
    Select Case DropDownList.SelectItem.Text        case A
                 Rpt= new A
                 Rpt.SetDataSource(MyDataTable)
            case b
            '''''''''''''''''''''''''''''
    end Select
           cryviewer.ReportSource = Rpt
           cryviewer.DataBind()
    end sub