12-09-24, 08:35 PM
هل هناك طريقة لنقل حقل معين من ريكوردسيت إلى رأس التقرير بمعنى لو عندى Labels فى رأس التقرير Lbl1&Lbl2&Lbl3 اريد نقل حقل الاسم مثلا من recordset الاول الىLbl1& ثم نقل نفس الحقل من الrecordset الثانى الىLbl2 وهكذا علما بأننى جربت الكود بعد الاتصال بقاعدة البيانات وجملة الاستعلام ولكنه لا يعمل
If not rs.eof and not rs.bof then
With reportdata1
Rs.movefirst
While(not rs.eof)
For i=1 to 3
Lblname="Lbl" & I
. Sections("section2").controls(Lblname).caption=rs.fields("studentname")
Next i
Rs.movenext
Wend
End if
.show
End with
End if
If not rs.eof and not rs.bof then
With reportdata1
Rs.movefirst
While(not rs.eof)
For i=1 to 3
Lblname="Lbl" & I
. Sections("section2").controls(Lblname).caption=rs.fields("studentname")
Next i
Rs.movenext
Wend
End if
.show
End with
End if
