تقييم الموضوع :
  • 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 
ويظهر على الصورة مصدر البيانات لكل جدول في التقرير


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماهي الطريقة لعرض بيانات مشفره في تقرير؟ قناص المدينة 0 44 12-11-16, 06:29 PM
آخر رد: قناص المدينة
  [VB.NET] sql server - Vb.net - Selected Row Crystal reports hitman48 2 153 18-06-16, 04:37 PM
آخر رد: hitman48
  أكثر من متغير في التقرير k_medhat 1 191 02-05-16, 11:24 AM
آخر رد: k_medhat
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,416 27-10-15, 08:03 AM
آخر رد: Adrees
  كيف اظهر Parameters في تقرير Report1 aftfm 2 498 22-09-15, 10:33 PM
آخر رد: aftfm
  [سؤال] طريقة طباعة تقرير ReportViewer مباشرة عبد الله 4 1,843 15-09-15, 01:56 AM
آخر رد: الطالب
  عدد الصفوف في جدول في تقرير ميكروسوفت RDLC الجندى 6 1,105 01-09-15, 10:48 PM
آخر رد: مبرمج بلا حدود
Lightbulb [VB.NET] طباعة تقرير عن طريق تمرير البيانات من قاعدة بيانات مبرمج بلا حدود 35 4,125 28-08-15, 03:37 PM
آخر رد: مبرمج بلا حدود

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


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