今宵月は何処を照らすの

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

        Dim ReportDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim logoninfo As New CrystalDecisions.Shared.TableLogOnInfo

        Dim table As CrystalDecisions.CrystalReports.Engine.Table

        ReportDoc.Load(Server.MapPath("cr的檔名"))



        For Each table In ReportDoc.Database.Tables

            logoninfo = table.LogOnInfo

            With logoninfo.ConnectionInfo



                logoninfo.ConnectionInfo.ServerName = "您的sqlserver IP"

                .UserID = "帳號"

                .Password = "密碼"

            End With

            table.ApplyLogOnInfo(logoninfo)

        Next table

        CrystalReportViewer1.ReportSource = ReportDoc

        Me.CrystalReportViewer1.DisplayGroupTree = False



    End Sub