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
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