اريد ادراج صورة فى الداتا ريبورت

Private Sub DataReport_Initialize()
  img = App.Path & "\logo.gif"
  Set Me.Sections("section4").Controls("ImgLogo").Picture = LoadPicture(img)
End Sub

عندما يكون هناك استعلام لمجموعة من الموظفي ولكل موظف صورة لتخرج البيانات في تقرير واحد اجد أن صورة الموظف الأول تتكرر لكل الموظفين التالين فيالتقرير الواحد ما هو السبب وهذا هو الكود الذي استخدمته

cn.CursorLocation = adUseClient

cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ma.mdb;"

rs.Open "SELECT * FROM s71 WHERE ts = '" & 1 & "'", cn, adOpenStatic, adLockPessimistic

Set DataReport1.DataSource = rs

Set DataReport1.Sections("section1").Controls("image1").Picture = LoadPicture(Trim(App.Path) & "\b" & "\" & Trim(rs!m))

DataReport1.Show

ارجو حل هذه المشكلة

الاخ الكريم vb6 امكانيات ال datareport بسيطة فلا توجد امكانية للتعامل مع الصور من قاعدة البيانات كما تتصور وانما يمكن اضافة صورة ثابتة مثل شعار الشركة اي تتكرر على جميع الصفحات

اخ طارق هل يوجد امكانية لمثل هذه الطريقة عن طريق كريستال ريبورت 10

عذرا لا اتعامل مع الكريستال ريبورت وانما اتعامل مع activereport من http://www.datadynamcis.com وكل هذه الامكانيات موجودة به .

أخ طارق هل هناك موقع به شرح كافي ورابط لتحميل هذا البرنامج ياليت يكون بالعربي

للاسف بالعربي لايوجد شرح