[abdhassan]

السلام عليكم 
وف اشرح طريقة اضافة برنامج كريستال ريبورت
الى جميع اصدارات فيجول نت من اول اصدار الى 2015
 نحتاج فى البداية الى ملفين تشغيل التقارير 
CRRuntime_64bit_13_0_5
CRRuntime_32bit_13_0
 والملفين وظيفتها تشغيل التقارير فى جهاز العميل او جهاز المبرمج  ولا نحتاج الى برامج اضافة كريستال ريبورت الى فيجول نت
CRforVS_13_0_110
لماذا لاننا  سوف نصمم التقارير بواسطة برنامج كريستال ريبورت 10 او 2008  خارج الفيجول نت ثم نقوم  بفتح التقارير
عن طريق اسم التقرير
اضافة فورم 9 مثلا  كما استخدمت فى برنامجى
واضافة الاداة CRViewer1 الى الفورم
وسوف اقوم بشرح الكود بتفصيل اكثر

كود :

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

[abdhassan]

سوف اضع مثال لتوضيح الفكرة

[CLARO]

مشكوووووووووووووووووووووووووووووور

[علي النقيب]

(28-05-16, 02:16 PM)CLARO كتب : مشكوووووووووووووووووووووووووووووور

أنا أعمل على فيجوال بيسك 2012 ومنزل كريستال ريبورت خارج اللغة وبدي أنشئ تقارير الكريستال واضيفها الى مشروعي بس أداة الكريستال ريبورت لا تظهر في toolbox بحث أقوم باضافتها الى الفورم. فما هو الحل؟