Για την εμφάνηση των εικόνων ειναι το ΙBlobFieldObject
Αν ορίσης ένα πεδίο στη βάση σου ως varbinary
και το κάνης Drag and Drop στο Report θα σου βάλη ΙBlobFieldObject
Μπορείς να γεμίσης το field με εικόνα πριν την εκτύπωση στην Dataset που δίνεις για στο SetDataSource του report
πχ
Try
Dim Image As Byte() = AddImageRow(Application.StartupPath & "\MyFiles\GmHead.jpg")
For RCount = 0 To m_dtGen.Rows.Count - 1
m_dtGen.Rows(RCount).Item("img") = Image
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
Public Function AddImageRow(ByVal filename As String) As Byte()
Dim fs As New FileStream(filename, FileMode.Open) ' create a file stream
Dim br As New BinaryReader(fs) ' create binary reader
AddImageRow = br.ReadBytes(Convert.ToInt32(br.BaseStream.Length))
br = Nothing
fs = Nothing
End Function
George Matzouranis