[a.wagdi]

(25-12-18, 02:14 PM)عبد العزيز البسكري كتب :

السّلام عليكم و رحمة الله و بركاته

كل الشكر و التقدير أخي الكريم " العربي " على مشاركتنا الموضوع و فكرتك الرائعة سأجربها بإذن الله

بارك الله فيك و لك و جزاك خير الجزاء أخي

تحياتي و تشكراتي

---

السّلام عليكم و رحمة الله و بركاته
شكري و تقديري و عرفاني بجميل عملك معي بهذا الموضوع أخي الكريم " وجدي "
يبدو أنّي سأشرب 10 فناجين قهوة و ليس فنجانا واحدا لإزالة الصداع
بيني و بينك أخي الكريم 3 أيام و انا أحاول إغلاق الإتّصال العابر للقارات بدون فائدة
المهم يا طيّب ..
الإتّصال الأن فعلا تم إغلاقه حتى بعد عرض التقارير و الحمد لله .. و سؤال بين قوسيْن هنا لو تكرّمت ( كيف و من أيّ منصّة تم إغلاقه )
الأمر المتبقّي و هو الآن أصبح التقرير يعرض فقط سجلا واحدا ..
مهما ملأت الفاتورة بالمواد سيعرض فقط ( جهينة ) سواء بشاشة فاتورة المبيعات أو بشاشة كل الفواتير .. يتم عرض بالتقرير فقط سجل ( جهينة ) ..

تحياتي و تشكراتي و تقييماتي

وعليكم السلام ورحمة الله وبركاته

العفو أخي الكريم

سأجيبك بين قوسين فقط

عند تعريف التقرير مثل Dim rpt1 As New CrystalReport1
يفترض إغلاقه بعد أن يقرأه عارض التقارير CrystalReportViewer

مثال لأحد أكواد عرض التقرير

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BPR.Click


    SQLInvoices = "SELECT * FROM Invoices WHERE IDInvoices = " & Val(FtoraID.Text) & ""

    DataSetInvoices.Clear()

    Dim DataAdapterInvoices As New OleDbDataAdapter(SQLInvoices, Conn)
    DataAdapterInvoices.Fill(DataSetInvoices, "Invoices")



    Application.DoEvents()
    Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
    ConInfo.ConnectionInfo.ServerName = Application.StartupPath & "\DB.mdb"
    ConInfo.ConnectionInfo.DatabaseName = "DB.mdb"
    ConInfo.ConnectionInfo.UserID = "Admin"
    ConInfo.ConnectionInfo.Password = "343282"


    Dim rpt1 As New CrystalReport1
    Dim rpt2 As New CrystalReport1
    rpt1.Database.Tables(0).ApplyLogOnInfo(ConInfo)
    rpt1.SetDataSource(DataSetInvoices)
    rpt2.Database.Tables(0).ApplyLogOnInfo(ConInfo)
    rpt2.SetDataSource(DataSetSalesHistory)
    Dim frm As New FormPrint

    frm.CrystalReportViewer1.ReportSource = rpt1
    frm.CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = "343282"

    rpt1.Close() '<<<<<<<<<<<<<<<<<<
    rpt2.Close() '<<<<<<<<<<<<<<<<<<

    frm.ShowDialog()

End Sub 


[عبد العزيز البسكري]

بارك الله فيك و لك أخي الكريم " وجدي " على حسن المتابعة و صدرك الرحب لكامل تساؤلاتي عسى الله أن يعوّضك بأفضل و أحسن من هذا إن شاء الله

تحياتي و إحتراماتي