ошибка после обновления vb до vb.net - PullRequest
Новая
       28

ошибка после обновления vb до vb.net

2 голосов
/ 15 июня 2011

Я обновляю свой проект до vb.net, используя Visual Basic. я получаю сообщение об ошибке при запуске отчета Crystal. 

    Call ReportConnection(CInspAuditList, "A")
    CInspAuditList.ReportFileName = My.Application.Info.DirectoryPath & "\A.rpt"
    Call SubReportConnection(CInspAuditList, "A")
    CInspAuditList.set_ParameterFields(0, temp1)
    CInspAuditList.set_ParameterFields(1, temp2)
    CInspAuditList.set_ParameterFields(2, temp3)
    CInspAuditList.set_ParameterFields(3, temp4)
    CInspAuditList.Action = 1

мое соединение 

Public Function ReportConnection(ByRef CrystalReport1 As Object, ByRef dsnname As String) As Boolean

    Try
        CrystalReport1.Connect = "dsn=" & dsnname & ";UID=" & gstrID & ";PWD=" & gstrPassword & ";DSQ="
    Catch ex As Exception
        MsgBox(ex.ToString)
        End
    End Try
End Function
Public Function SubReportConnection(ByRef CrystalReport1 As Object, ByRef dsnname As String) As Object
    Dim NReport As Short
    With CrystalReport1
        NReport = .GetNSubreports
        Do While NReport > 0
            .SubreportToChange = .GetNthSubreportName(NReport - 1)
            .Connect = "dsn=" & dsnname & ";UID=" & gstrID & ";PWD=" & gstrPassword & ";DSQ="
            .SubreportToChange = ""
            NReport = NReport - 1
        Loop
    End With
End Function

я получаю ошибку Exception from HRESULT: 0x800A501B в CInspAuditList.Action = 1</p> <p> Могу ли я узнать, как исправить ошибку ???

...