تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] إنشاء تقرير Crystal Report من أكثر من جدول
#1
تحية طيبة
أرجو المعذرة فأنا جديد في عالم البرمجة ولدي مشكلة في إنشاء تقارير Crystal Report في VB.Net 
لدي مجموعة من الجداول تشترك جميعها في الحقل DevID وقمت بإنشاء تقرير وقام بإحضار البيانات من الجدول الأول وهي البيانات العامة للجهاز tbldata
أما الجدولين الآخرين فهما يتعلقان بالأعطال tblProblem  والملاحظات tblNote 
 
أريد إنشاء التقرير بحيث يظهر البيانات جميعها على الشكل التالي:
الجدول الأول : tbldata هذا الجدول يظهر بيانات محددة ( معلومات الجهاز ) وهنا لا نحتاج إلى جدول على التقرير لأنها بيانات ثابته
الجدول الثاني : tblProblem وهذا الجدول يظهر الأعطال على الجهاز وهي تحتاج إلى أن تكون على شكل جدول لأنها تشكل أكثر من صف واحد
الجدول الثالث : tblNote وهذا الجدول يمثل الملاحظات المسجلة على الجهاز وهي أيضا بحاجة إلى جدول لأنها تشكل أكثر من صف واحد 
 
مع الملاحظة بأن البيانات التي تكون متوفرة دائما هي فقط من الجدول الأول لأنها بيانات ثابته أما الجدولين الأخيرين tblProblem, tblNote ليس شرط بأن يكون موجود فيها بيانات على نفس الجهاز أو الرقم في DevID لان بعض الأجهزة لا تحتوي على أعطال أو ملاحظات 
 
علما أني استخدمت الكود التالي وهو يعمل معي فقط من الجدول الأول 
وأنا وضعت هنا جملة الاستعلام للجدولين الثاتي والثالث لملاحظة الحقول المطلوبة في التقرير 
 
Dim ds As New DataSet8
                 Dim da As New SqlDataAdapter("Select  DevID,DevIDCourt, Code_, DevType, SerialNum From tbldata WHERE DevID =" & MDIParent1.txtDevID.Text, conn)
        Dim dap As New SqlDataAdapter("Select tblProblem.DevCompany, tblProblem.EmpName, tblProblem.JobPlace, tblProblem.Court, tblProblem.ProbCount, tblProblem.ProbContinue, tblProblem.Statuse_, tblProblem.ProbDate, tblProblem.ProbDet, tblProblem.Maint_By, tblProblem.HwMaint, tblProblem.MaintinanceDate, tblProblem.ReportN, tblProblem.ReportID FROM tblProblem WHERE tblProblem.DevID=" & MDIParent1.txtDevID.Text, conn)
        Dim dan As New SqlDataAdapter("Select DevID,tblNote.NoteDate, tblNote.DevNote FROM tblNote WHERE tblNote.DevID=" & MDIParent1.txtDevID.Text, conn)
        da.Fill(ds, "dataProbNote")
        dv = New DataView(ds.Tables("dataProbNote"))

        Dim rpt As New CrystalReport2
        rpt.SetDataSource(dv)
        Me.CrystalReportViewer1.ReportSource = rpt
        Me.CrystalReportViewer1.RefreshReport()

 
وفي المرفقات شكل التقرير المطلوب حيث أن التقرير في الصورة تم تصميمه على Report Viewer 
ويظهر على الصورة مصدر البيانات لكل جدول في التقرير


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] sql server - Vb.net - Selected Row Crystal reports hitman48 3 444 12-09-17, 10:15 AM
آخر رد: alprofmohamed
  تقرير مستندات محاسبية ibraheam 0 70 28-08-17, 06:51 PM
آخر رد: ibraheam
  عمل تقرير يظهر نتيجة الطالب في مواد الفصل القيصر بيلا 0 86 16-08-17, 09:09 PM
آخر رد: القيصر بيلا
Photo عمل تقرير يظهر نتيجة الطالب في مواد الفصل القيصر بيلا 0 61 16-08-17, 09:08 PM
آخر رد: القيصر بيلا
  مساعدة في إنشاء تقرير لطباعة الصكوك ndjakoub 0 88 24-07-17, 05:53 PM
آخر رد: ndjakoub
  [سؤال] كيف يمكن إرسال الصورة الموجودة داخل PictureBox1 إلى تقرير الكريستال ريبورت matrixmas 0 127 20-06-17, 11:51 PM
آخر رد: matrixmas
  استفسار حول التقرير من أكثر من جدول المتألق9 0 113 18-06-17, 03:10 PM
آخر رد: المتألق9
  [سؤال] مشكله فى عرض تقرير الفاتورة احمد عبد الحكيم 7 338 07-06-17, 03:00 AM
آخر رد: mstfa1991
  تنسيق تقرير الكريستال ريبورت aftfm 0 281 16-02-17, 01:39 PM
آخر رد: aftfm
  [سؤال] طريقة طباعة تقرير ReportViewer مباشرة عبد الله 6 3,480 23-01-17, 05:30 PM
آخر رد: hesham77a

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


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