使用VB.NET中的参数将Crystal报表导出为PDF

Question

aspx页面

<asp:Button ID="btnPDF" runat="server" Text="PDF Format" onclick="btnPDF_Click" />
<CR:CrystalReportViewer ID="CrystalReportViewer1" runat="server" AutoDataBind="true" />

aspx.vb页面

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        Dim Report As ReportDocument = New ReportDocument()
        Report.Load(Server.MapPath("~/CrystalReport.rpt"))
        Report.SetDatabaseLogon("sa", "######", "IT250WS", "demo")
        CrystalReportViewer1.ReportSource = Report
    End Sub

    Protected Sub btnPDF_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim Report As ReportDocument = New ReportDocument()
        Report.Load(Server.MapPath("~/CrystalReport.rpt"))
        Report.SetParameterValue("@EmpId", 1)
        Report.SetDatabaseLogon("sa", "######", "IT250WS", "demo")
        Response.Buffer = False
        Response.ClearContent()
        Response.ClearHeaders()
        Report.ExportToHttpResponse(ExportFormatType.PortableDocFormat, Response, True, "File_Name")
        Response.[End]()
    End Sub

遇到错误：
无效的索引。 （来自HRESULT的异常：0x8002000B（DISP_E_BADINDEX））
异常详细信息：System.Runtime.InteropServices.COMException：无效的索引。 （HRESULT的异常：0x8002000B（DISP_E_BADINDEX））