[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته
أريد عمل تقرير كريستال ريبورت ومصدر البيانات هو الداتاقريدفيو التي تأخذ بياناتها من جدول في قاعدة بيانات sql كل هذا يعمل بصورة جيدة ولكن مشكلتي هو حقل الصورة حيث يوجد لدي حقل للصور مخزنة على شكل varbinary  واريد أن انقل الصورة الى الكريستال ريبورت لتعرض في التقرير وجربت الكود التالي ولم ينجح معي ولك شكري 

        Dim dt1 As New DataTable

        dt1 = DataGridView2.DataSource

        Dim cr1 As New CrystalReport5

        cr1.SetDataSource(dt1)

       

        Dim imageData As Byte() = DirectCast(dt1.Rows(0).Item("Phone_QR"), Byte())

        Dim img As New Bitmap(New MemoryStream(imageData))

      

        Dim imageObject As New CrystalDecisions.CrystalReports.Engine.image

        imageObject.DatabaseFieldName = "Phone_QR" 

        imageObject.Value = img

        cr1.ReportDocument.Sections("Section3").ReportObjects.Add(imageObject)   

        Dim r1 As New Form14

        r1.CrystalReportViewer1.ReportSource = cr1

        r1.ShowDialog()