لود کردن عکس از بانک در data report

[mohsen1150]

سلام دوستان
من یه گزارش با دیتا ریپورت درست کردم حالا می خوام بدونم چه جوری میشه آدرس عکسو به دیتا ریپورت بدم و اونم نمایش بده
لطفا راهنمایی کنید (فوری)
با تشکر قبلی از همه دوستان

[hooman59]

شما روي يكي از فرم هاتون كنترل هاي زير را قرار بدين(در اين مرحله عكس لود ميشه توي picturebox6) و كد هاي زير را اضافه كن به فرمت

Private Sub insertlogo_Click()
Dim filen As String
Dim c As Integer
CommonDialog1.Filter = "pictures(*.bmp;*.jpg)|*.bmp;*.jpg|"
CommonDialog1.ShowOpen
filen = CommonDialog1.FileName
For c = Len(filen) To 1 Step -1
Select Case AscW(Mid$(filen, c, 1))
Case Is < 0, Is > 255
' unicode, non-ANSI character
Exit For
Case Else
End Select
Next
If c > 0 Then
MsgBox "äÇã ÚßÓ íÇ æÔå åÇí ÏÑ ãÓíÑ ÇäÊÎÇÈ ÚßÓ ÈÇíÏ ÇäáíÓí ÈÇÔäÏ", 48, "replace"
' non-ANSI character found
Exit Sub
End If

Picture6.Picture = LoadPicture(filen)
End Sub
حالا يه command button نياز داري كه reporte رو باز ميكنه براي اون بنويس

Private Sub Button11_Click()With checkReport1.Sections("Section4")
Set .Controls("Image1").Picture = Formhooman.Picture6.Picture

End With
checkReport1.Show
End Sub

بجاي formhoomanاسم اون فرم خودت رو بده
بجاي checkreport1اسم گزارش خودت
توي data reportet بايد يه image اضافه كني ، هر قسمت كه ميگذاري اسم همون section را بنويس.

موفق باشيد