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

السلام عليكم ورحمة الله وبركاته
أريد عمل تقرير كريستال ريبورت ومصدر البيانات هو الداتاقريدفيو التي تأخذ بياناتها من جدول في قاعدة بيانات 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() 

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

السلام عليكم ورحمة الله وبركاته 
آسف جدا لتكرار طلبي ولكن الموضوع أجهدني ولم أستطع الوصول لحل شكراً لكم 

[aljzazy]

قم انشاء داتا تيبل في مشروعك وتحتوي على حقل واحد من نوع بيت واجعل مصدر البيانات لتقريرك هذه الدات تيبل واسحب الصورة للتقرير ثم عند امر الطباعة قم بجلب البيانات الخاصة في الصورة الى الداتا تيبل هذه باختصار ما تريد او الحل الثاني انشاء داتا تيبل وتعبئتها بكل البيانات بما فيها الصورة عند الاستعلام

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

السلام عليكم ورحمة الله وبركاته
شكراً لك أخي الجزازي لإهتمامك والحل الثاني هو بالضبط ما أحاول القيام به واستعملت الكود الموجود في الأعلى ولكن لا أعرف ما هو الخطأ ...... وجزاك الله كل خير