23-09-24, 12:16 AM
السلام عليكم ورحمة الله وبركاته
أريد عمل تقرير كريستال ريبورت ومصدر البيانات هو الداتاقريدفيو التي تأخذ بياناتها من جدول في قاعدة بيانات sql كل هذا يعمل بصورة جيدة ولكن مشكلتي هو حقل الصورة حيث يوجد لدي حقل للصور مخزنة على شكل varbinary واريد أن انقل الصورة الى الكريستال ريبورت لتعرض في التقرير وجربت الكود التالي ولم ينجح معي ولك شكري
أريد عمل تقرير كريستال ريبورت ومصدر البيانات هو الداتاقريدفيو التي تأخذ بياناتها من جدول في قاعدة بيانات 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()