sebelumnya saya ucapkan minal aidzin wal faidzin maaf lihir batin. aku ada
persoalan mungki ada yg tau menampilkan picture di crystalreport mungkin ini
lagu lama tapi tidak ada salahnya aku kemukakan disini dan saya yakin pasti ada
yg punya persoalan seperti saya.
penggalan koding seperti di bawah ini, pertanyaan saya kenapa kok picture nggak
bisa tampil di crystal repot?
Private Sub sect_Format(ByVal pFormattingInfo As Object)
On Error Resume Next
Dim bmp As StdPicture
With sect.ReportObjects
Set .Item("Image").FormattedPicture = LoadPicture(App.Path &
"\Poto\ck99.gif") 'default
If .Item("prodi").Value <> "" Then
Set bmp = LoadPicture(App.Path & "\Poto\" & .Item("prodi").Value)
Set .Item("Image").FormattedPicture = bmp
End If
End With
End Sub
mungkin ada yg tau dimana letak kesalahannya sehingga picture nggak mau muncul
di crystalreport
eddy
