pessoal será que ninguem nunca precisou disso no data report?

Cardoso,

         estou tentando fazer isso tb e não estou conseguindo. joguei o código da ama só que no active reports e deu erro na mesma linha..., ontem tentei fazer no data reports...., só que percebi que o rptimage não tem a propriedade datamember e datafield, e não estou sabendo como chamar a figura..., dessa vez estou gravando a figura no próprio banco, só que mesmo assim nada...

         continuarei tentando..., quando achar uma solução te envio

 

Marcelo 

Cardoso,

              estou tentando o seguinte código:

 

Private Sub Command1_Click()

Dim q As PictureBox
Dim i As Integer
Dim x As Integer
Dim z As Integer

x = 0: z = 0

With DataReport1
    .Hide
    Set .DataSource = rs
    .DataMember = ""
        With .Sections("section1").Controls
            For i = 1 To .Count
                If TypeOf .Item(i) Is RptTextBox Then
                    .Item(i).DataMember = ""
                    .Item(i).DataField = rs(z).Name
                    z = z + 1
                    End If
                If TypeOf .Item(i) Is RptImage Then
                    .Item(i).Picture = rs(q).Value
                    q = q + 1
                 End If
            Next i
            End With
    .Refresh
    .Show
    End With
       
End Sub

 

Para os rptextbox funciona perfeitamente, agora para o rptimage não estou conseguindo achar a propriedade correta..., alguém tem alguma sugestão?

 

Marcelo

olha o rptImage não possui propriedade datasource e o rpttextbox seria seu substituto mas de acordo com a própria microsoft ocorre um bug e ela mesma não tem nada para sugerir como solução então caro Cardoso acho que a solução seria montar um relatório na unha seguindo a sugestão do colega shel tornando a secao details invisivel . ate

Ama, a questão nao é na unha, a questao é que nao consigo mostrar a imagem de cada registro na sessão detalhes,