将vb升级到vb.net后出错

问题描述

| 我通过使用Visual Basic将项目升级到vb.net。运行水晶报表时出现错误。

    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

我在

CInspAuditList.Action = 1

得到错误

Exception from HRESULT: 0x800A501B

我可以知道如何解决该错误吗？？？     

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）