تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] Crystal Reports: كيف يتم ربط حقل من جدول آخر؟
#1
Question 
السلام عليكم ورحمة الله وبركاته

تحية طيبة إليكم..،

سؤالى بسيط وهو كيف أقوم بعرض حقل من جدول آخر فى الكريستال ريبورت
مثال: الجدولين التاليين:

MOVEMENTS
ID
Product_ID
Quantity
Price

PRODUCTS
ID
Name

وما أود عرضه هو:
Movement.ID / Product.Name / Quantity / Price

كود :
   Private Sub CrystalReport_Viewer_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim cmd1 As New SqlCommand("SELECT Movements.*, Products.* FROM Movements LEFT OUTER JOIN Products ON Movements.ProductID = Products.ID", sqlconnstring)
       adapter.SelectCommand = cmd1
       adapter.Fill(ds, "Table1")

       Dim objRpt As New CrystalReport_Invoice
       objRpt.SetDataSource(ds.Tables("Table1"))
       CrystalReportViewer1.ReportSource = objRpt
       CrystalReportViewer1.Refresh()
   End Sub


رغم عمل Linked بشاشة Database Expert وضبط Link Options لتكون LEFT OUTER JOIN + Enforce Both
ولكن Product.Name يظهر فارغاً وباقى البيانات سليمة !!!!!


مع خالص إمتنانى فى مساعدتى لحل هذه المشكلة
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

إذا كان الاسم Product_ID صحيحا فغريب أن يعمل الاستعلام من الأساس
لأنه في الكود ذكرت ان اسمه ProductID

جرب هذا التعديل على أساس أن الاسم الصحيح Product_ID
كود :
   Private Sub CrystalReport_Viewer_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim da As New SqlDataAdapter("SELECT Products.*, Movements.* FROM Movements LEFT OUTER JOIN Products ON Movements.Product_ID = Products.ID", sqlconnstring)
       Dim dt As New DataTable
       da.Fill(dt)

       Dim objRpt As New CrystalReport_Invoice
       objRpt.SetDataSource(dt)
       CrystalReportViewer1.ReportSource = objRpt
       CrystalReportViewer1.Refresh()
   End Sub

أيضا تأكد من صحة تصميم التقرير فقد تكون المشكلة فيه
الرد }}}}
تم الشكر بواسطة:
#3
شكراً جزيلاً لرد حضرتك, وأنا كنت كاتب مثال فقط بدلاً من نقل كل المدخلات اللى عندى
أنا عملت مثال صحيح دلوقتى بكود مطابق:
كود :
Imports System.Data
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class Form1
   Dim ds As New DataSet
   Dim adapter As New SqlDataAdapter

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       Dim sqlconnstring As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=" & Application.StartupPath & "\114a.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
       sqlconnstring.Open()

       Dim cmd1 As New SqlCommand("SELECT Movements.ID, Movements.Product_ID, Movements.Quantity, Movements.Price, Products.ID, Products.Name FROM Movements LEFT OUTER JOIN Products ON Movements.Product_ID = Products.ID", sqlconnstring)
        
        adapter.SelectCommand = cmd1
       adapter.Fill(ds, "Table1")

       Dim objRpt As New CrystalReport1
       objRpt.SetDataSource(ds.Tables("Table1"))
       CrystalReportViewer1.ReportSource = objRpt
       CrystalReportViewer1.Refresh()
   End Sub
End Class

المرفقات بها صورة توضح التفاصيل الكاملة


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

إذا المشكلة في طريقة الربط في التقرير

ممكن ترفق ملف التقرير
وإن أمكن نسخة من ملف قاعدة البيانات mdf ان لم يكن فيها ما يمنع

وتحل إن شاء الله
الرد }}}}
تم الشكر بواسطة:
#5
شكراً أستاذ ممدوح

أرفقت مجلد المشروع كاملاً (وهو مثال للربط) وبه قاعدة البيانات وملف الكريستال


الملفات المرفقة
.rar   Crystal_Reports_JOIN.rar (الحجم : 314.91 ك ب / التحميلات : 10)
الرد }}}}
تم الشكر بواسطة:
#6
لم أتعامل مع الكريستال ريبورت بجدولين ولكن هذا ما توصلت له

تم تعديل خصائص الأعمدة خصوصا ID
تم عمل View1 في قاعدة البيانات
ثم أضفتها للداتاسيت التي في المشروع _114aDataSet.xsd
ثم ربطت View1 بتقرير الكريستال ريبورت CrystalReport عن طريق Database Expert

قاعدة البيانات والتقرير المعدله في المرفقات



الملفات المرفقة
.rar   Crystal_Reports.rar (الحجم : 116.87 ك ب / التحميلات : 4)
الرد }}}}
تم الشكر بواسطة:
#7
Thumbs Up 
أنا عاجز عن الشكر حضرتك
القاعدة والكريستال اللى بعتهم نسخ أحدث فلم يعملوا معى، ولكن أنا اتبعت الخطوات اللى إنت كتبتها والكود يعمل الآن بكفاءة

ولكن أكيد Linked فى Database Epert ليها طريقة أيضاً وخصوصاً إن فيها عناصر Join كاملة


شكراً جزيلاً أستاذ ممدوح Shy
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo جدول حصص مدرسة سيد درويش 0 10 منذ 1 ساعه مضت
آخر رد: سيد درويش
Question [VB.NET] كيفية ربط أى حقل IFieldObject بعمود بجدول برمجياً Crystal Reports newvbdev 4 110 23-11-16, 08:51 PM
آخر رد: newvbdev
  كيف اقوم بتعبئت كمبو بوكس من جدول في اسكيول سيرفر معتز الجازوي 2 63 19-11-16, 03:10 AM
آخر رد: معتز الجازوي
  حفظ صورة الموظف في جدول مستقل أبووسم 3 180 18-11-16, 03:56 PM
آخر رد: أبووسم
  مساعدة في طريقه فكرة عمل جدول sql server Rabeea Qbaha 4 106 08-11-16, 04:55 PM
آخر رد: Rabeea Qbaha
  تعذر عمل انسيرت لجدول من جدول اخر بسبب المفتاح الأساسي اليوم مبتدئة وغداً محترفة 7 152 08-11-16, 03:56 PM
آخر رد: اليوم مبتدئة وغداً محترفة
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 8 263 05-11-16, 12:00 PM
آخر رد: Adrees
  [SQL] مطلوب جدول به اصناف محل كمبيوتر ... عاجل MH mekawy 2 103 03-11-16, 04:22 PM
آخر رد: MH mekawy
Lightbulb ما هو الكود البرمجي لزر الطباعة بواسطة Crystal Reports Arabia 6 185 20-10-16, 01:52 AM
آخر رد: جوري
  نسخ بيانات جدول في داتا اكسس الى جدول في داتا اخرى samira20 3 120 12-10-16, 03:20 PM
آخر رد: ابو ليلى

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


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