طريقة تشغيل كريستال ريبورت بجميع ادارات فيجول نت

كود :
Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

Friend Class form9

    Inherits System.Windows.Forms.Form

    Dim m_Report 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

    Dim sortfield As CrystalDecisions.CrystalReports.Engine.FieldDefinition



    Private Sub Form18_Load(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim i As Integer

        If cn.State = ConnectionState.Open Then cn.Close()

        cn.Open()



        m_Report.Load(namerport1)



        With crConnectionInfo

            ' .ServerName = ServerName

            .DatabaseName = spaths & "\db1.mdb"

            .UserID = ""

            .Password = ""

        End With



        CrTables = m_Report.Database.Tables

        For Each Me.CrTable In CrTables

            crtableLogoninfo = CrTable.LogOnInfo

            crtableLogoninfo.ConnectionInfo = crConnectionInfo

            CrTable.ApplyLogOnInfo(crtableLogoninfo)

        Next



        If formul1 <> "" Then

            m_Report.RecordSelectionFormula = formul1

        End If







        For i = 0 To fcount

            m_Report.DataDefinition.FormulaFields.Item(namef(i)).Text = valuef(i)

        Next i





        CRViewer1.ReportSource = m_Report

        Cursor.Current = Cursors.Default





    End Sub



    Private Sub Form18_Resize(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize

        CRViewer1.Top = 0

        CRViewer1.Left = 0

        CRViewer1.Height = Me.ClientRectangle.Height

        CRViewer1.Width = Me.ClientRectangle.Width

        CRViewer1.Zoom(150)

    End Sub



    Private Sub Form18_FormClosed(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Me.Dispose()

    End Sub