COLOCAR IMAGENS DIFERENTES NO DATA REPORT
Será que tem algum NERD que sabe como colocar varias imagens diferentes no data report sem o data environment, como se fosse um catalogo, segue abaixo o código, só que esse código, aparece todas as imagens IGUAIS, eu acho que precisa de um lupem na imagem.
With DataReport1
Set .Sections([Ô]Section4[Ô]).Controls([Ô]Image1[Ô]).Picture = LoadPicture(App.Path & [Ô]\alub.jpg[Ô])
[ô]Do While Not rst.EOF
Do While Not rst.EOF
FOTO = rst!caminho
[ô]If FOTO <> [Ô][Ô] Then
.Sections([Ô]Section1[Ô]).Controls([Ô]text1[Ô]).DataField = ([Ô]nome[Ô])
Set .Sections([Ô]Section1[Ô]).Controls([Ô]Image2[Ô]).Picture = LoadPicture(FOTO)
[ô]Set DataReport1.DataSource = Nothing
rst.MoveNext
Loop
Valeu pela ajuda
With DataReport1
Set .Sections([Ô]Section4[Ô]).Controls([Ô]Image1[Ô]).Picture = LoadPicture(App.Path & [Ô]\alub.jpg[Ô])
[ô]Do While Not rst.EOF
Do While Not rst.EOF
FOTO = rst!caminho
[ô]If FOTO <> [Ô][Ô] Then
.Sections([Ô]Section1[Ô]).Controls([Ô]text1[Ô]).DataField = ([Ô]nome[Ô])
Set .Sections([Ô]Section1[Ô]).Controls([Ô]Image2[Ô]).Picture = LoadPicture(FOTO)
[ô]Set DataReport1.DataSource = Nothing
rst.MoveNext
Loop
Valeu pela ajuda
Faça seu login para responder