水晶报表 Crystal Report 调用存储过程时出错 找不到表 ，解决方法。

用 CrystalReportViewer1 控件在asp.net的网页上显示报表，假设做报表时调用数据表数据的方式调用是能够成功的。但报表是用存储过程获取数据方式会出现下面错误：





找不到表'RptOpenCheck;1' 。 文件 G:\TEMP\FO-OpenCheck {6D191F06-DECF-4A25-88FC-8553E3D435AA}.rpt 内出错： 找不到表。

Error: 未将对象引用设置到对象的实例。

The table 'RptOpenCheck;1' could not be found. Error in File G:\TEMP\FO-OpenCheck {6D191F06-DECF-4A25-88FC-8553E3D435AA}.rpt: The table could not be found.









未能打开该连接。 未能打开该连接。

G:\TEMP\FO-OpenCheck {4E60249E-FC16-4F3D-A610-138FC3297171}.rpt





VS2005 环境，Crsytal Reports 11.5





代码下面：





    Dim crtableLogoninfos As New TableLogOnInfos

    Dim crtableLogoninfo As New TableLogOnInfo

    Dim crConnectionInfo As New ConnectionInfo

    Dim crParameterFields As ParameterFields

    Dim crParameterField As ParameterField

    Dim crParameterValues As ParameterValues

    Dim crParameterDefValues As ParameterValues

    Dim crParameterValue As ParameterValue

    Dim crParameterDiscreteValue As ParameterDiscreteValue





    Dim CrTables As Tables

    Dim CrTable As Table





    Dim ReportName As String

    Dim PrintTo As String       ' P Printer V Window

    Dim ReportPath As String

    Dim UserName As String

    Dim Password As String

    Dim ServerName As String

    Dim DatabaseName As String

    Dim crReportDocument As New ReportDocument









Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load, Me.Load





    Dim strParam As String = Request("p")





'获取用户请求參数

    If Right(strParam, 1) = "~" Then

        strParam = Mid(strParam, 1, Len(strParam) - 1)

    End If





'參数转换为数组

    s = Split(strParam, "~")





    'use odbc connection database 

    With crConnectionInfo

        .AllowCustomConnection = True

        .ServerName = ”ODBCName"

        '.DatabaseName = "TempDB"

        .UserID = "sa"

        .Password = "Microwin"

    End With





    ''use SQL connection database 

    'With crConnectionInfo

    '    .AllowCustomConnection = True

    '    .ServerName = "(local)"

    '    .DatabaseName = "TempDB"

    '    .UserID = "sa"

    '    .Password = "Microwin"

    'End With

    

    '指定报表路径

    ReportPath = Server.MapPath(Request.ApplicationPath)

    ReportNamePath = ReportPath & "\testing.rpt"





    'check report file exists and Load Report

    If System.IO.File.Exists(ReportNamePath) Then

        crReportDocument.Load(ReportNamePath)

    End If

    

    '设置报表文档给报表控件

    Me.CrystalReportViewer1.ReportSource = crReportDocument



'设置连接数据库信息给报表文档

    CrTables = crReportDocument.Database.Tables

    For Each CrTable In CrTables





        crtableLogoninfo = CrTable.LogOnInfo

        crtableLogoninfo.ConnectionInfo = crConnectionInfo

        CrTable.ApplyLogOnInfo(crtableLogoninfo)





'就是这句没有加，所以会出现以上错误信息。仅仅有报表是调用存储过程取数据时才会出现错误。花了我几天时间，最终攻克了。

CrTable.Location = CrTable.Name

    Next





'设置控件显示的属性

    With CrystalReportViewer1





        .AutoDataBind = True

        .ReuseParameterValuesOnRefresh = True

        .EnableDatabaseLogonPrompt = False

        .EnableParameterPrompt = False





        CrystalReportViewer1.DisplayGroupTree = False

        CrystalReportViewer1.DisplayPage = True

        CrystalReportViewer1.DisplayToolbar = True

        CrystalReportViewer1.ReportSource = crReportDocument





    End With





    If Not IsPostBack Then





'取用户请求的參数赋值给报表。假设报表须要參数的话。从第三个元素開始为报表參数值。





        crParameterFields = Nothing

        crParameterFields = CrystalReportViewer1.ParameterFieldInfo





        Dim j As Integer = UBound(s, 1)



        For i = 0 To crParameterFields.Count - 1

            crParameterField = crParameterFields.Item(i)





            crParameterValues = crParameterField.CurrentValues





            crParameterDefValues = Nothing

            crParameterDefValues = New ParameterValues

            crParameterDefValues = crParameterField.DefaultValues





            crParameterDiscreteValue = Nothing

            crParameterDiscreteValue = New ParameterDiscreteValue





            If i > (j - 2) Then





                Select Case crParameterField.ParameterValueKind

                    Case ParameterValueKind.BooleanParameter

                        crParameterDiscreteValue.Value = False

                    Case ParameterValueKind.CurrencyParameter

                        crParameterDiscreteValue.Value = Nothing

                    Case ParameterValueKind.DateParameter

                        crParameterDiscreteValue.Value = System.DateTime.Now

                    Case ParameterValueKind.DateTimeParameter

                        crParameterDiscreteValue.Value = System.DateTime.Now

                    Case ParameterValueKind.NumberParameter

                        crParameterDiscreteValue.Value = Nothing

                    Case ParameterValueKind.StringParameter

                        crParameterDiscreteValue.Value = " "

                    Case ParameterValueKind.TimeParameter

                        crParameterDiscreteValue.Value = System.DateTime.Now

                End Select





                crParameterValues.Add(crParameterDiscreteValue)





            Else





                Select Case crParameterField.ParameterValueKind

                    Case ParameterValueKind.BooleanParameter

                        crParameterDiscreteValue.Value = IIf(s(i + 2) = "0", False, True)

                    Case ParameterValueKind.CurrencyParameter

                        crParameterDiscreteValue.Value = IIf(Trim(s(i + 2) & "") = "", Nothing, s(i + 2))

                    Case ParameterValueKind.DateParameter

                        crParameterDiscreteValue.Value = IIf(Trim(s(i + 2) & "") = "", Nothing, s(i + 2))

                    Case ParameterValueKind.DateTimeParameter

                        crParameterDiscreteValue.Value = IIf(Trim(s(i + 2) & "") = "", Nothing, s(i + 2))

                    Case ParameterValueKind.NumberParameter

                        crParameterDiscreteValue.Value = IIf(Trim(s(i + 2) & "") = "", Nothing, s(i + 2))

                    Case ParameterValueKind.StringParameter

                        crParameterDiscreteValue.Value = IIf(Trim(s(i + 2) & "") = "", " ", s(i + 2))

                    Case ParameterValueKind.TimeParameter

                        crParameterDiscreteValue.Value = IIf(Trim(s(i + 2) & "") = "", Nothing, s(i + 2))

                End Select





                crParameterValues.Add(crParameterDiscreteValue)

            End If





        Next









    End If

    

End Sub