تقييم الموضوع :
  • 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 الخاص بالتقرير ومن ثم عرض هذا المتغير دون عرض الفورم الأصلي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] sql server - Vb.net - Selected Row Crystal reports hitman48 3 423 12-09-17, 10:15 AM
آخر رد: alprofmohamed
  تقرير مستندات محاسبية ibraheam 0 56 28-08-17, 06:51 PM
آخر رد: ibraheam
  عمل تقرير يظهر نتيجة الطالب في مواد الفصل القيصر بيلا 0 65 16-08-17, 09:09 PM
آخر رد: القيصر بيلا
Photo عمل تقرير يظهر نتيجة الطالب في مواد الفصل القيصر بيلا 0 49 16-08-17, 09:08 PM
آخر رد: القيصر بيلا
  مساعدة في إنشاء تقرير لطباعة الصكوك ndjakoub 0 71 24-07-17, 05:53 PM
آخر رد: ndjakoub
  [سؤال] كيف يمكن إرسال الصورة الموجودة داخل PictureBox1 إلى تقرير الكريستال ريبورت matrixmas 0 111 20-06-17, 11:51 PM
آخر رد: matrixmas
  [سؤال] مشكله فى عرض تقرير الفاتورة احمد عبد الحكيم 7 310 07-06-17, 03:00 AM
آخر رد: mstfa1991
  تنسيق تقرير الكريستال ريبورت aftfm 0 257 16-02-17, 01:39 PM
آخر رد: aftfm
  [سؤال] طريقة طباعة تقرير ReportViewer مباشرة عبد الله 6 3,349 23-01-17, 05:30 PM
آخر رد: hesham77a
  ماهي الطريقة لعرض بيانات مشفره في تقرير؟ قناص المدينة 0 289 12-11-16, 06:29 PM
آخر رد: قناص المدينة

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


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