[عبدالرحمن بشري عمر]

السلام عليكم ورحمة الله
لدي مشكلة في ظهور البيانات في التقرير
ان اعمل الاتصال عن طريق الدتاسيت

[Emam emam]

(22-12-18, 02:14 PM)عبدالرحمن بشري عمر كتب : السلام عليكم ورحمة الله
لدي مشكلة في ظهور البيانات في التقرير
ان اعمل الاتصال عن طريق الدتاسيت

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

اخي تأكد من أن الـ DataTable  التي تستخدمها في عرض البيانات في الداتا جريد فيو هي نفس الـ DataTable   التي تستخدمها في عرض الكريستال ريبورت

كما هو موضح بالكود التالي

كود :

DT.Clear()
           DA = New OleDbDataAdapter("select * from TBL", connAccess2007)
           DA.Fill(DT)
           DataGridView3.DataSource = DT

           Dim report As New RptGlucose
           report.SetDataSource(DT)

[عبدالرحمن بشري عمر]

هذه كود الدتا جريد فيوda = New OleDbDataAdapter("SELECT * FROM stourg;", con)

        Dim dt As New DataTable
        da.Fill(dt)
        Me.DataGridView1.DataSource = dt
هذه كود التقرير ارجو المساعدة
Dim rebor As New CrystalReport1
        rebor.SetDataSource(dt)

        Form39.CrystalReportViewer1.ReportSource = rebor

        Form39.TopMost = True

        Form39.Show()

[a.wagdi]

(22-12-18, 04:42 PM)عبدالرحمن بشري عمر كتب : هذه كود الدتا جريد فيوda = New OleDbDataAdapter("SELECT * FROM stourg;", con)

        Dim dt As New DataTable
        da.Fill(dt)
        Me.DataGridView1.DataSource = dt
هذه كود التقرير ارجو المساعدة
Dim rebor As New CrystalReport1
        rebor.SetDataSource(dt)

        Form39.CrystalReportViewer1.ReportSource = rebor

        Form39.TopMost = True

        Form39.Show()

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

الكود سليم فقد قمت بتجربته ويعمل بشكل صحيح

اذا كنت وضعت الكود داخل الحدث Form1_Load او Try او استخدمت On Error فلن تظهر لك الاخطاء التي تحصل

قم بوضع الكود كما هو في حدث Button بدون استخدم Try ولا OnError وستعلم اين المشكلة لديك

[Emam emam]

(22-12-18, 02:14 PM)عبدالرحمن بشري عمر كتب : السلام عليكم ورحمة الله
لدي مشكلة في ظهور البيانات في التقرير
ان اعمل الاتصال عن طريق الدتاسيت

الكود سليم اخي
برجاء ارفاق جزء من المشروع للاطلاع عليه