[مصمم هاوي]

هل يمكن تعديل الكود حتى يتم جلب الصورة في التقرير
علمـاً بأن الصورة مخزنة في قاعدة البيانات في جدول TBL_File - اسم الحقل Cimage
أو يمكن أن يتم جلب الصورة من المجلد School_logo في - Debug
المهم يتم جلب الصورة أو اللوجو في التقرير؛ فأي طريقة تنجح يتم اعتمادها

كود :

Private Sub ButReport1_Click(sender As Object, e As EventArgs) Handles ButReport1.Click
       ' كشف بأسمــاء الطلبــة
       If CombClass.Text = "" Then
           MessageBox.Show(" عفواً ، يجب اختيـار الفصل الدراســي", "تنبيــه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
           Exit Sub
       End If

       If Combroom.Text = "" Then
           MessageBox.Show(" عفواً ، يجب اختيـار القسم الدراســي", "تنبيــه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
           Exit Sub
       End If

       Dim rpt1 As New CrystalReport1
       Dim dt As New DataTable()
       Try
           Using da = New OleDbDataAdapter("SELECT * From TBL_Students WHERE ClassName LIKE '%" & CombClass.Text & "%' AND Classroom LIKE '%" & Combroom.Text & "' ", Con)
               dt.Clear()
               da.Fill(dt)
               rpt1.SetDataSource(dt)
           End Using
           If dt.Rows.Count = 0 Then
               MessageBox.Show("عفـــواً ... لا يوجــد طلبــة دراسين فـي: " & " " & CombClass.Text & vbCrLf & " قسـم: " & Combroom.Text & " * ليتم عرض بيانـاتهم ", "تنبيـــه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
               CombClass.Text = String.Empty
               Combroom.Text = String.Empty
               Exit Sub
           End If

           Dim LTextName As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("LTextName")
           LTextName.Text = " " & Me.LabelC2.Text & Environment.NewLine & " " & Me.LabelC4.Text & Environment.NewLine & " كشف بأسمـاء طلبـة " & Me.CombClass.Text & Environment.NewLine & " القسـم: " & Me.Combroom.Text
           Dim TextName As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("TextName")
           TextName.Text = " " & Me.LabelC5.Text & Environment.NewLine & " مديــر عام المعهـد"

           rpt1.SetParameterValue("Image", Application.StartupPath & "\School_logo\logo.jpg‎")

           FormReport.CrystalReportViewer1.ReportSource = rpt1
           FormReport.CrystalReportViewer1.Zoom(100)
           FormReport.CrystalReportViewer1.Refresh()
           FormReport.CrystalReportViewer1.RefreshReport()
           FormReport.Show()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try

   End Sub

جربت هذا الجزء في الكود ولم يفلح

           rpt1.SetParameterValue("Image", Application.StartupPath & "\School_logo\logo.jpg‎")


وجربت هذا الجزء أيضاً

Dim logoPath As String = Application.StartupPath & "\School_logo\logo.jpg"
Dim pic As CrystalDecisions.CrystalReports.Engine.PictureObject = rpt1.Section2.ReportObjects("Picture1")
pic.ObjectFormat.PictureGraphicLocation = logoPath

علماً بأن الصــورة تم جلبها في الفورم FormReports