SoloCodigo

Bases de Datos => Crystal Reports => Mensaje iniciado por: sbo01 en Miércoles 1 de Marzo de 2006, 10:00

Título: Abrir Cr Desde Vb 6.0
Publicado por: sbo01 en Miércoles 1 de Marzo de 2006, 10:00

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

1.  
2.     Dim oNameObject As FieldObject
3.     Dim oTempOLE As OLEObject
4.     Dim oReportObjects As ReportObjects
5.     Dim strName As String
6.     Dim i As Integer
7.     strName = ""
8.        
9.     Dim oSections As Sections
10.     Dim strRuta As String
11.     Set oSections = crReport.Sections
12.      
13.     For i = 1 To oSections.Item("DetailSection1").ReportObjects.Count
14.         If oSections.Item("DetailSection1").ReportObjects.Item(i).Kind = 6 Then
15.            If oSections.Item("DetailSection1").ReportObjects.Item(i).Name Like "Picture*" Then
16.                 Set oTempOLE = oSections.Item("DetailSection1").ReportObjects.Item(i)
17.        
18.                 strName = "Name" + Right(oTempOLE.Name, Len(oTempOLE.Name) - 7)
19.            
20.                 Set oNameObject = oSections.Item("DetailSection1").ReportObjects.Item(strName)
21.              
22.                 strRuta = pRutaImg + oNameObject.Value
23.                 Set oTempOLE.FormattedPicture = LoadPicture(strruta)
24.                          
25.             End If
26.         End If
27.     Next
28.  
29.  
30.  

Gracias de antemano,
vane