javadt
پنج شنبه 01 بهمن 1388, 16:14 عصر
سلام
من توسط کد زیر آدرس عکس رو از بانک می گیرم و نمایش میدم
بار اول نمایش میده اما بار دوم مشکل دار و ارور میده
img آدرس عکسی هست که بهش پاس می دم
اینم اررورش
Run-time error '445':
Object doesnt support this action
به این کد گیر میده
Set CrReptt = ObjApp.OpenReport(App.Path & "\Reports\1.rpt")
Set Section3 = CrReptt.Sections.Item(3) ' 3 For Detail Section
با این کد
Dim WithEvents Section3 As CRAXDRT.Section
Private Sub section3_Format(ByVal pFormattingInfo As Object)
Dim bmp As StdPicture
With Section3.ReportObjects
If Dir$(img) = "" Then
Set bmp = LoadPicture
Else
Set bmp = LoadPicture(img)
End If
Set .Item("Picture1").FormattedPicture = bmp
End With
Set bmp = Nothing
End Sub
با تشکر
من توسط کد زیر آدرس عکس رو از بانک می گیرم و نمایش میدم
بار اول نمایش میده اما بار دوم مشکل دار و ارور میده
img آدرس عکسی هست که بهش پاس می دم
اینم اررورش
Run-time error '445':
Object doesnt support this action
به این کد گیر میده
Set CrReptt = ObjApp.OpenReport(App.Path & "\Reports\1.rpt")
Set Section3 = CrReptt.Sections.Item(3) ' 3 For Detail Section
با این کد
Dim WithEvents Section3 As CRAXDRT.Section
Private Sub section3_Format(ByVal pFormattingInfo As Object)
Dim bmp As StdPicture
With Section3.ReportObjects
If Dir$(img) = "" Then
Set bmp = LoadPicture
Else
Set bmp = LoadPicture(img)
End If
Set .Item("Picture1").FormattedPicture = bmp
End With
Set bmp = Nothing
End Sub
با تشکر