Hola,
Tengo un proyecto en VB 6.0 el cual me abre un report de Crystal Reports. Mi problema es que quiero que en el report se abra una imagen dependiendo del artículo que esté visualizando. Encontré algo de código por internet pero no me sirve de mucho puesto que el proyecto creado en ese código tenía el informe creado desde el propio proyecto (con lo que podía capturar los eventos de formateo de secciones). ¿Alguien sabe como podría llevar a cabo esto?
Se que hay que usar el loadpicture. El código que tengo escrito para la captura del campo correcto es el siguiente:
Dim oNameObject As FieldObject
Dim oTempOLE As OLEObject
Dim oReportObjects As ReportObjects
Dim strName As String
Dim i As Integer
strName = ""
Dim oSections As Sections
Dim strRuta As String
Set oSections = crReport.Sections
For i = 1 To oSections.Item("DetailSection1").ReportObjects.Count
If oSections.Item("DetailSection1").ReportObjects.Item(i).Kind = 6 Then
If oSections.Item("DetailSection1").ReportObjects.Item(i).Name Like "Picture*" Then
Set oTempOLE = oSections.Item("DetailSection1").ReportObjects.Item(i)
strName = "Name" + Right(oTempOLE.Name, Len(oTempOLE.Name) - 7)
Set oNameObject = oSections.Item("DetailSection1").ReportObjects.Item(strName)
strRuta = pRutaImg + oNameObject.Value
Set oTempOLE.FormattedPicture = LoadPicture(strruta)
End If
End If
Next
Gracias de antemano,
vane
