تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
رسالة خطأ عند عرض تقرير Crystal Report مرتين!
#1
السلام عليكم ورحمة الله

قمت بإنشاء تطبيق يتعامل مع قواعد بيانات MS Access وتقارير Crystal Reports.
أقوم بتخزين بيانات في الجدول بنجاح، ومن ثم يتم عرض تقرير بهذه البيانات.

ولدي روتين خاص بعرض تقرير بناء على رقم الـID.

لأول مرة يقوم بعرض التقرير بلا أي مشاكل، ولكن عند طلب عرض التقرير مجدداً لأي سبب تظهر رسالة خطأ كما بالصورة.

[ATTACH=CONFIG]2918[/ATTACH]

علماً بأن برمجة Form عرض التقرير كما يلي:
كود :
Imports CrystalDecisions.Shared
Imports CrystalDecisions.Shared.OpenReportMethod
Imports CrystalDecisions.CrystalReports.Engine
Imports System.Data.OleDb
Imports System.Data

Public Class frmStool_2_Report

    Public RecID As Integer

    Private Sub frmStool_2_Report_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        RecID = 0
        CryStool.ReportSource = Nothing

        frmMain.PatID = 0
        frmMain.PatName = Nothing
        frmMain.lblPatName.Text = Nothing
    End Sub

    Private Sub frmStool_2_Report_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rpt As New StoolReport
        Dim EmpSql As String = "SELECT * FROM StoolAnalysis WHERE ID=" & RecID & ""

        Dim Empdataset As New DataSet

        If Con.State = ConnectionState.Closed Then
            Con.Open()
            Dim EmpAdapter As New OleDbDataAdapter(EmpSql, Con)
            EmpAdapter.Fill(Empdataset, "StoolAnalysis")
            CryStool.ReportSource = Nothing
            rpt.SetDataSource(Empdataset)

            CryStool.ReportSource = rpt
            CryStool.Refresh()
            Con.Close()

        Else
            Dim EmpAdapter As New OleDbDataAdapter(EmpSql, Con)
            EmpAdapter.Fill(Empdataset, "StoolAnalysis")
            CryStool.ReportSource = Nothing
            rpt.SetDataSource(Empdataset)

            CryStool.ReportSource = rpt
            CryStool.Refresh()
            Con.Close()
        End If
        Empdataset.Reset()
    End Sub
End Class

والاتصال معرف في Module وهو كالتالي:
كود :
Imports System.Data.OleDb

Module functions
    Public Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\azoumi.mdb")
End Module

فأين المشكلة؟

لكم تحية.


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

ارجو ارفاق المثال للتعديل عليه
الرد }}}}
تم الشكر بواسطة:
#3
لقد حللت المشكلة، وهي تتلخص في أنني أستدعي الـform الخاص بالتقرير مباشرة، والحل هو بتعريف متغير على انه نسخة من الـForm الخاص بالتقرير ومن ثم عرض هذا المتغير دون عرض الفورم الأصلي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماهي الطريقة لعرض بيانات مشفره في تقرير؟ قناص المدينة 0 44 12-11-16, 06:29 PM
آخر رد: قناص المدينة
  [VB.NET] sql server - Vb.net - Selected Row Crystal reports hitman48 2 154 18-06-16, 04:37 PM
آخر رد: hitman48
  [VB.NET] إنشاء تقرير Crystal Report من أكثر من جدول saad.abu 0 248 06-06-16, 11:43 PM
آخر رد: saad.abu
  [سؤال] ارجو المساعدة رسالة خطاء عند طباعة التقرير من كريستال ريبورت 13 ahmed saleh 2 261 18-05-16, 03:52 AM
آخر رد: abdhassan
Question Crystal Report Shortcut Keys abuzzouz 0 240 09-02-16, 09:30 AM
آخر رد: abuzzouz
Lightbulb [سؤال] تقرير يعتمد على نص في التكست بوكس محمد 1 836 02-01-16, 01:02 AM
آخر رد: الراشيدي
  [ طلب ] رابط تحميل Crystal Reports Youssef1313 5 1,419 27-10-15, 08:03 AM
آخر رد: Adrees
  كيف اظهر Parameters في تقرير Report1 aftfm 2 498 22-09-15, 10:33 PM
آخر رد: aftfm
  [سؤال] طريقة طباعة تقرير ReportViewer مباشرة عبد الله 4 1,846 15-09-15, 01:56 AM
آخر رد: الطالب
  عدد الصفوف في جدول في تقرير ميكروسوفت RDLC الجندى 6 1,108 01-09-15, 10:48 PM
آخر رد: مبرمج بلا حدود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم