每当我在 vb.net 中使用水晶报表运行包含子报表的报表时，都会弹出数据库登录窗口

Question

这行代码在没有子报表的情况下运行良好。

    Dim rpt As New CRaipPrepare

    rpt.DataSourceConnections.Clear()
    rpt.DataSourceConnections.Item(0).SetConnection(connection.server, db.aipDB, connection.user, connection.pass)
    rpt.DataSourceConnections.Item(0).IntegratedSecurity = False

    'rpt.Subreports.Item("CRsignatory.rpt").SetDataSource(subrpt)

    rpt.SetParameterValue("@id", Dashboard.BurgerMenuItem.Tag)
    rpt.SetParameterValue("@sector", code)
    rpt.SetParameterValue("@year", Yeardate)
    rpt.SetParameterValue("@stats", IIf(Prepare.checkfinale(Dashboard.BurgerMenuItem.Tag) = 3, 2, Nothing))

    CrystalReportViewer1.ReportSource = rpt
    CrystalReportViewer1.Refresh()
    CrystalReportViewer1.Zoom(zooming)

现在有了子报告，每当我运行报告时，数据库登录窗口总是会弹出。甚至子报表中的集成安全性都设置为 false

    Dim rpt As New CRaipPrepare
    Dim subrpt As New CRsignatory

    subrpt.DataSourceConnections.Clear()
    subrpt.DataSourceConnections.Item(0).SetConnection(connection.server, db.aipDB, connection.user, connection.pass)
    subrpt.DataSourceConnections.Item(0).IntegratedSecurity = False

    subrpt.SetParameterValue("@idBrgy", Dashboard.BurgerMenuItem.Tag)
    subrpt.SetParameterValue("@dateYear", Yeardate)


    rpt.DataSourceConnections.Clear()
    rpt.DataSourceConnections.Item(0).SetConnection(connection.server, db.aipDB, connection.user, connection.pass)
    rpt.DataSourceConnections.Item(0).IntegratedSecurity = False

    'rpt.Subreports.Item("CRsignatory.rpt").SetDataSource(subrpt)

    rpt.SetParameterValue("@id", Dashboard.BurgerMenuItem.Tag)
    rpt.SetParameterValue("@sector", code)
    rpt.SetParameterValue("@year", Yeardate)
    rpt.SetParameterValue("@stats", IIf(Prepare.checkfinale(Dashboard.BurgerMenuItem.Tag) = 3, 2, Nothing))

    CrystalReportViewer1.ReportSource = rpt
    CrystalReportViewer1.Refresh()
    CrystalReportViewer1.Zoom(zooming)

我一直在努力解决这个问题。很高兴获得任何帮助。谢谢你:)

Answer 1

如果您覆盖服务器，SetConnection 可能不起作用。设置密码时适用