Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
--------------------------------------------------------


Protected Sub ASPxButton9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ASPxButton9.Click
     Dim rptdoc As ReportDocument = New ReportDocument
        Dim mylogin As TableLogOnInfo
        Dim mytable As Table
        rptdoc.Load(Server.MapPath("~\reports\saraya\selectedleadershiptask.rpt"), OpenReportMethod.OpenReportByDefault)
        For Each mytable In rptdoc.Database.Tables
            mylogin = mytable.LogOnInfo
            mylogin.ConnectionInfo.Password = "123456"
            mylogin.ConnectionInfo.UserID = "username"
            mytable.ApplyLogOnInfo(mylogin)
        Next

        rptdoc.Refresh()
        Response.ClearContent()
        Response.ClearHeaders()
        Response.ContentType = "application/pdf"
        rptdoc.ExportToHttpResponse(ExportFormatType.PortableDocFormat, Response, True, "ضع اسم التقرير")
        Response.Flush()
        Response.Close()
 End Sub