0

我有一个问题，我试图在水晶报告中以编程方式从 vb.net 替换图像。

这就是我所做的：

Dim facturacion As New dtFactura()
rowDatosFactura.Logo = "F:\imgtest.png"
facturacion.DatosFactura.AddDatosFacturaRow(rowDatosFactura)

我将图像路径设置为数据集

然后在te数据集中添加字符串以替换水晶报表中的图像

在 cyrstal 报告下，我添加了一个 ole 图片对象

在对象内部，我用这个改变了公式

{DatosFactura.Logo}

这是我在图片对象的公式编辑器中拥有的，但是当我运行代码时，它不会替换图像。

我以这种方式生成报告

 Dim _factura As New Factura()
 Private _datosreporte As dtFactura
 _factura.SetDataSource(_datosreporte)
 crwFactura.ReportSource = _factura
 crwFactura.ToolPanelView = CrystalDecisions.Windows.Forms.ToolPanelViewType.None

知道该怎么做吗？

Edit1：我检查了数据集，它不是空的，它包含我设置的路径

4

1 回答 1

2

对于遇到相同问题的任何人，我已经找到了解决方案。

主要是将图像转换为 byte()

然后将 byte() 传递给这样的行

rowDatosFactura.Logo = ConvertImageFiletoBytes("F:\logo.jpg")

将图像转换为字节的方法是这样的

 Public Function ConvertImageFiletoBytes(ByVal ImageFilePath As String) As Byte()
        Dim _tempByte() As Byte = Nothing
        If String.IsNullOrEmpty(ImageFilePath) = True Then
            Throw New ArgumentNullException("Image File Name Cannot be Null or Empty", "ImageFilePath")
            Return Nothing
        End If
        Try
            Dim _fileInfo As New IO.FileInfo(ImageFilePath)
            Dim _NumBytes As Long = _fileInfo.Length
            Dim _FStream As New IO.FileStream(ImageFilePath, IO.FileMode.Open, IO.FileAccess.Read)
            Dim _BinaryReader As New IO.BinaryReader(_FStream)
            _tempByte = _BinaryReader.ReadBytes(Convert.ToInt32(_NumBytes))
            _fileInfo = Nothing
            _NumBytes = 0
            _FStream.Close()
            _FStream.Dispose()
            _BinaryReader.Close()
            Return _tempByte
        Catch ex As Exception
            Return Nothing
        End Try
    End Function
于 2011-12-23T02:03:35.533 回答