إظها ر الصور في الكرستال ريبوبت

حتى وإن لم يرد أحد .. فسأضل في إنتظار حتى يتفضل أخ كريم بالرد الشافي

يجب أولاً تحويل الصورة عل شكل بايناري. بعد ذلك يجب أن يكون في الـdataset الخاص بالريبورت حقل من نوع blob تضع فيه البايناري الناتج من الصورة، و هذا الحقل تتعامل معه بشكل عادي في الريبورت.

http://vbcity.com/forums/faq.asp?fid=54&am...ports#TID106094

أخي الكريم أشكرك على الرد الطيب .. ولكن مع الأسف لم أستطع تنفيذ هذه التعليمات ممكن تفضلك بأن توضح بمثال بسيط مع خالص الشكر والتقدير

 Private Sub btnLoadImage_Click(ByVal sender As System.Object, _
								   ByVal e As System.EventArgs) _
			Handles btnLoadImage.Click

		Dim ofdImage As New OpenFileDialog

		If ofdImage.ShowDialog = DialogResult.OK Then

			Try

				'Create a new instance of the dataset
				Dim dsImgRpt As New dsImageReport

				'Create a new instance of the report
				Dim m_imagereport As New rptImage

				'Create a new row in the dataset
				Dim dr As dsImageReport.ImageRow = _
				dsImgRpt.Image.NewImageRow

				'Set the various elements of the row
				dr.Name = ofdImage.FileName
				'fill this field with a byte array
				dr.Photo = GetImageData(ofdImage.FileName)

				'Add the new row to the dataset
				dsImgRpt.Image.Rows.Add(dr)

				'Use the dataset as datasource for the report
				m_imagereport.SetDataSource(dsImgRpt)

				'Show the report in the reportviewer
				Me.crystalReportViewer1.ReportSource = m_imagereport

			Catch ex As Exception

				MessageBox.Show("Something went wrong: " & ex.Message)

			End Try

		End If

	End Sub

	Private Function GetImageData(ByVal fileName As String) As Byte()

		'Method to load an image from disk and return it as a bytestream
		Dim fs As System.IO.FileStream = _
				New System.IO.FileStream(fileName, _
				System.IO.FileMode.Open, System.IO.FileAccess.Read)
		Dim br As System.IO.BinaryReader = New System.IO.BinaryReader(fs)
		Return (br.ReadBytes(Convert.ToInt32(br.BaseStream.Length)))

	End Function

________________________________________.rar

مشكور أخي هاني وجزاك الله خيرا على هذا التوضيح