Добавить изображение в отчеты Crystal с vb.net

У меня проблема, я пытаюсь программно заменить изображение с vb.net в отчетах о кристаллах.

вот что я делаю:

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

я установил путь изображения к набору данных

затем добавьте строку в набор данных, чтобы заменить изображение в отчетах о кристаллах

в отчетах cyrstal я добавил объект ole picture

внутри объекта я изменил формулу с этим

{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: я проверил набор данных, и он не пустой, он содержит путь, который я установил


visual-studio-2010 winforms vb.net crystal-reports crystal-reports-xi
person Community    schedule 21.12.2011    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Я нашел решение, для тех, у кого такая же проблема.

главное преобразовать изображение в 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
person Community    schedule 23.12.2011