大致上的動作就是先將圖片以 byte 存到 DataTable 中,再輸出
Dim objBitmap As New Bitmap("圖片的路徑")
Dim ms As New System.IO.MemoryStream
Dim ImgFormat As System.Drawing.Imaging.ImageFormat
Dim PicTB As New DataTable
Dim row As DataRow
objBitmap.Save(ms, ImgFormat.jpeg)
PicTB.TableName = "ShowPicture"
PicTB.Columns.Add("PIC", System.Type.GetType("System.Byte[]"))
row = PicTB.NewRow row(0) = ms.ToArray
PicTB.Rows.Add(row)
CrystalReportSource.ReportDocument.SetDataSource(PicTB)

沒有留言:
張貼留言