اشکال در نمایش عکس در کریستال ریپورت10

[masoud.a]

با سلام به اساتید:
برنامه ای با vb6 نوشتم که یه عکس رو توی کریستال ریپورت نشون میده برای اولین بار مشکلی نداره ولی برای بار دوم
run time error 445
object doesn't support this action
میده ممنون میشم راهنماییم کنید
با تشکر

[samadblaj]

سلام فکر باید بعد از هر بار Load مقدار مفیلد رو Null کنید.
امتحان کنید احتمالا جواب بده.

[masoud.a]

ای کار رو انجام دادم
کد برنامه ام:

Private Sub section3_Format(ByVal pFormattingInfo As Object)


'Dim Bmp As StdPicture

With Section3.ReportObjects

If Dir$(.Item("PicAdres1").Value) = Empty Then
Set Bmp = LoadPicture

Else
Set Bmp = LoadPicture(.Item("PicAdres1").Value)

End If

Set .Item("Picture2").FormattedPicture = Bmp

End With

Set Bmp = Nothing

End Sub

Private Sub Form_Load()
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''
Set CrRep = CrApp.OpenReport(App.Path & "\Cart.rpt")
For Each crDBtable In CrRep.Database.Tables
crDBtable.ConnectionProperties.Item("Data Source") = App.Path & "\TermBank\Temp\temp.mdb"
Next
'''''''''''''''''
Set Section3 = CrRep.Sections.Item(3) ' 3 For Detail Section

CRG.ReportSource = CrRep
CRG.ViewReport
CrRep.DiscardSavedData
'''''''''''''''''''''''''
End Sub

[h_r_ibm]

با سلام ديشب من هم همين مشكل رو داشتم اما بعد 2 ساعت به نتيجه رسيدم بايد بعد اجرا اول براي فراخواني دوم كد زير رو بنويسي

Set Section3 = Nothing

مي توني تو يك command بنويسي
مشكل حل مي شه
موفق باشيد