参数无法从vb.net传递到Crystal报表

名称进口声明

Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports system.web.UI.WebControls
Imports System.Drawing
Imports system.security.Cryptography
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports CrystalDecisions.Web
Imports CrystalDecisions.CrystalReports.Engine.Table

隐藏代码

        Dim rptDocu As New ReportDocument
        Dim crParamFields As New ParameterFields
        Dim crParamField As New ParameterField
        Dim crParamDiscreteVal As ParameterDiscreteValue = Nothing
        Dim crDatabase As Database
        Dim crTables As Tables
        Dim crTable As CrystalDecisions.CrystalReports.Engine.Table = Nothing
        Dim crLogOnInfo As TableLogOnInfo
        Dim crConnInfo As New ConnectionInfo()

        crParamField.ParameterFieldName = "@eno"
        crParamDiscreteVal = New ParameterDiscreteValue
        crParamDiscreteVal.Value = "50269"
        crParamField.Currentvalues.Add(crParamDiscreteVal)
        crParamFields.Add(crParamField)
        CrystalReportViewer2.ParameterFieldInfo = crParamFields

        rptDocu.Load(Server.MapPath("~/CrystalReport1.rpt"))
        crDatabase = rptDocu.Database
        crTables = crDatabase.Tables
        crTables.Reset()
        CrystalReportViewer2.Dispose()

        For Each crTable In crTables
            With crConnInfo
                .ServerName = "INTRANET"
                .DatabaseName = "Certificate"
                .UserID = "sa"
                .Password = "#######"
            End With

            crLogOnInfo = crTable.LogOnInfo
            crLogOnInfo.ConnectionInfo = crConnInfo
            crTable.ApplyLogOnInfo(crLogOnInfo)
        Next


        For Each cnInfo As TableLogOnInfo In Me.CrystalReportViewer2.LogOnInfo
            cnInfo.ConnectionInfo = crConnInfo
        Next

        CrystalReportViewer2.Reportsource = rptDocu

隐藏代码

  

使用参数仅显示空白就没有错误