[احمداحمداحمد6]

بسم الله الرحمن الرحيم
بعد اضافة الاداة data1
تعمل قاعدة بيانات وتحولها الى تنسيق 97
وتربط المربع النصي مع القاعدة عن طريق الخواص او مربع الخصائص

for i = 1 to data1.recordcount
text1.text=data1.feild i
if data1.feild1+1 <>eof then text2.text=data1.feild i+1
.
.
.
data1.movenext
next i
...........................................
هذا الي اقدر عليه
.........................................
bye