如何为晶体报告 vb.net 设置数据库登录信息(连接信息)

Question

我在让水晶报告设置登录时遇到了一点问题。 我让它在许多报告中工作，但由于某种原因有几个已经停止工作。 附上我的登录脚本，我已经逐步完成它，每一步后登录信息都在那里。
更不寻常的是，Visual Studio 中的报表将打开，信息正常

Private Sub cmdPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrint.Click
    Dim cryRpt As New ReportDocument
    Dim crTableLogonInfos As New TableLogOnInfos
    Dim crTableLogonInfo As New TableLogOnInfo
    Dim crConnectionInfo As New ConnectionInfo
    Dim crTables As Tables
    Dim crTable As Table
    cryRpt.Load("g:dt2rptMusterSheet.rpt")
    With crConnectionInfo
        .ServerName = "SERVERNAME"
        .DatabaseName = "DB NAME"
        .UserID = "sa"
        .Password = "xxxxxxx"
    End With
    crTables = cryRpt.Database.Tables
    For Each crTable In crTables
        crTableLogonInfo = crTable.LogOnInfo
        crTableLogonInfo.ConnectionInfo = crConnectionInfo
        crTable.ApplyLogOnInfo(crTableLogonInfo)
    Next
    CRV1.ReportSource = cryRpt
    CRV1.Refresh()
End Sub

步进后我得到这个消息框

Answer 1

试试这个...

Dim mytableloginfos As New TableLogOnInfos()
mytableloginfos = CRV1.LogOnInfo
For Each myTableLogOnInfo As TableLogOnInfo In mytableloginfos
    myTableLogOnInfo.ConnectionInfo = crConnectionInfo
Next