Bases de Datos > Crystal Reports

 Abrir Cr Desde Vb 6.0

(1/1)

sbo01:
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:

--- Código: Text ---     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

Navegación

[0] Índice de Mensajes