Imagem dinamica no Crystal Reports no Vb.net 2003

[Lucas Alves]

Boa tarde a todos!!!

Gostaria de saber se alguém de vocês sabe como eu faço para carregar imagens dinamicas no crystal reports no vb.net 2003....

O Caso é o seguinte, eu tenho um relatório de uma receitas.....tenho uma pasta no pc com imagens de cada receita..... o programa vai funcionar + - assim .,,..,

Caso o usuário clique na receita de bolo o relatório será apresentado com a imagem do bolo e com a descrição de como fazer o mesmo.....caso ele clique na receita de brigadeiro vai aparecer a imagem do brigadeiro e assim por diante ....

Caso alguém puder me ajudar agradeço

Atenciosamente

Lucas Alves

[quintelab]

Cara vai ter que fazer uma verificação, com if ou case. Caso clique no titulo X chame a imagem X, caso clique no titulo Y chame a imagem Y.

Abraços...

[kuroi]

as receitas vem do banco de dados?? se vier você pode criar um campo no banco (do tipo image em sql, ou objeto ole em access) e gravar a imagem relacionada ao registro. ai é só adicionar como um campo qualquer q ele mostra la.

[Lucas Alves]

As receitas vem do banco, mas as imagens estão em uma pasta do computador, eu não posso mudar a estrutura do banco de dados agora porque já esta em produção, mas oque eu estou tentando fazer é o seguinte ...

Eu Inseri uma Picture no Crystal Reports no vb.net 2003, porém quero especificar via código o caminho na qual se encontra a figura dessa Picture.

No código no vb basta eu pegar o nome da imagem .ImageUrl = "Caminho"... Já no crystal tentei o seguinte:

DirectCast(Rel.Section6.ReportObjects.Item("Picture11"), = AppDomain.CurrentDomain.BaseDirectory & "Imagens/SemFoto.jpg"

Porém da o seguinte erro de conversão nessa minha linha:

Specified cast is not valid.

Eu criei um for para gerar as imagens dinamicamente, o problema é que ele não esta conseguindo pegar o caminho da imagem na pasta, conforme erro que postei acima... abaixo segue o for para vocês verificarem .. ...

For i = 0 To dt.Rows.Count - 1

If Not dt.Rows(i).Item(2) Is Nothing Then

If ExisteFoto(dt.Rows(i).Item(2)) = True Then

DirectCast(Rel.Section6.ReportObjects.Item("Picture11"), PictureObject) = "../Imagens/" & dt.Rows(i).Item(2) & ".jpg"

else

DirectCast(Rel.Section6.ReportObjects.Item("Picture11"), PictureObject) = "../Imagens/Imagens/SemFoto.jpg"

End If

End If

Next

Grato desde já

Lucas Alves