INSERIR IMAGEM NO DATAREPORT

GUGU4700 02/01/2011 16:39:48
#360869

Galera, preiso de ajuda.

Preciso do exemplo ou codigo, de como inserir uma imagem no datareport, pois tenho um form com dados e quando mando para o datareport, eu quero colocar uma imagem já definida.

Já tentei este codigo, mais não tenho sucesso, o datareport aparece em branco

foto = TxtLocalImagem.Text
If DataGeral.rsComPropo.DataMember = [Ô]imagePro=[ô][Ô] & foto & [Ô][ô][Ô] Then
LoadPicture (foto)
End If



alguem pode me ajudar.

Obrigado
TECLA 08/01/2011 19:36:22
#361641 Resposta escolhida
GUGU4700 08/01/2011 20:18:03
#361643
e colocar mais imagem,uma diferente da outra ? pois estou tentando a nada, olha o codigo abaixo;

Do While Not DataGeral.rsComPropo.EOF
foto = DataGeral.rsComPropo.Fields([Ô]LocaImagem[Ô]).Value
With Datateste
[ô]If foto <= [Ô][Ô] Then
If foto <> [Ô][Ô] Then
Set Datateste.Sections([Ô]gera[Ô]).Controls([Ô]IMAGE3[Ô]).Picture = LoadPicture(foto)
End If
If foto <> [Ô][Ô] Then
[ô]DataGeral.rsComPropo.MoveNext
Set Datateste.Sections([Ô]gera[Ô]).Controls([Ô]IMAGE3[Ô]).Picture = LoadPicture(foto)
End If
End With
DataGeral.rsComPropo.MoveNext
Loop
Me.Refresh
GUGU4700 10/01/2011 08:48:44
#361712
Esse eu já tentei , deu certo, só que quando pede para colocar varias imagens, ele só pega a primeira, ai que esta o problema, sevoce sober de mais alguma ou aquele JEITO brasileiro, agradeço.
GUGU4700 17/01/2011 11:59:50
#362482
Galera,

Estou desisperado, preciso fazer uma catalogo, e até agora só consegui colar uma image, no data report, quando coloco dois image1 aparce as duas imagem só que no mesmo registro, nãoestou conseguindo colocaruma em cada registro, se alguem tiver alguma sugestão, agradeço muito, segue o codigo:

esta no data report

Private Sub DataReport_Initialize()
Dim foto As String
Dim GU As String
Dim G As String

DataGeral.rsComPropDetCot.Open
foto = DataGeral.rsComPropDetCot.Fields([Ô]LocaImagem[Ô]).Value [ô] 1ª foto
With Datateste
If foto <> [Ô][Ô] Then
Set Datateste.Sections([Ô]gera[Ô]).Controls([Ô]Image1[Ô]).Picture = LoadPicture(foto & Image1)
End If
DataGeral.rsComPropDetCot.MoveNext
End With
foto = DataGeral.rsComPropDetCot.Fields([Ô]LocaImagem[Ô]).Value [ô] 2ª foto
With Datateste
If foto <> [Ô][Ô] Then
Set Datateste.Sections([Ô]gera[Ô]).Controls([Ô]Image2[Ô]).Picture = LoadPicture(foto & Image2)
End If
End With
[ô]Me.Refresh
End Sub
GUGU4700 04/02/2011 13:21:57
#364343
Consegui colocar 02 imagem na mesma linha, com 02 dados diferentes, porem as imagens se repetem nos dados, e eu quero que cada imagem fique no campo de dados de cada imagem.
segue anexo modelo
GUGU4700 05/02/2011 16:25:51
#364443
preciso dessa forma.
Tópico encerrado , respostas não são mais permitidas
Voltar