View Full Version : سوال: اشکال در نمایش عکس در کریستال ریپورت10
masoud.a
سه شنبه 28 شهریور 1391, 10:41 صبح
با سلام به اساتید:
برنامه ای با vb6 نوشتم که یه عکس رو توی کریستال ریپورت نشون میده برای اولین بار مشکلی نداره ولی برای بار دوم
run time error 445
object doesn't support this action
میده ممنون میشم راهنماییم کنید
با تشکر
samadblaj
سه شنبه 28 شهریور 1391, 10:55 صبح
سلام فکر باید بعد از هر بار Load مقدار مفیلد رو Null کنید.
امتحان کنید احتمالا جواب بده.
masoud.a
سه شنبه 28 شهریور 1391, 11:05 صبح
ای کار رو انجام دادم
کد برنامه ام:
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
یک شنبه 17 دی 1391, 09:01 صبح
با سلام ديشب من هم همين مشكل رو داشتم اما بعد 2 ساعت به نتيجه رسيدم بايد بعد اجرا اول براي فراخواني دوم كد زير رو بنويسي
Set Section3 = Nothing
مي توني تو يك command بنويسي
مشكل حل مي شه
موفق باشيد
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.