+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : عدم ضهور كل البيانات (/showthread.php?tid=47616)
عدم ضهور كل البيانات - فراس محي - 14-12-23
السلام عليكم اخوتي
عندي مشكله
انا استخدم جمله select
لفتح جدول رقم واحد وجمله اخرى لفتح جدول الثاني وعملت جمله for i =1 to rs.recordcount
لاضافه اسم السياره في كومبو بوكس واحد
واضافه المواد الاحتياطيه في كومبو بوكس رقم اثنين
المشكله هيه عدم اضافه الماده الاخيره من المواد الاحتياطيه بمعنى انيي لدي اربع مواد في الجدول وهي محرك كير شمعات اكسل سضهر فقط ثلاث مواد الماده الاخير لايستدعيها بكل الحالات حاولت لايرى الماده الاخيره من البيانات
RE: عدم ضهور كل البيانات - Taha Okla - 15-12-23
وعليكم السلام ورحمة الله وبركاته
الأفضل أن لا تستخدم For بل استخدم حلقات Do Loop
يعني استخدم الكود التالي :
كود :
If Rs.RecordCount > 0 Then Rs.MoveFirst
Do Until Rs.EOF
' هنا ضع أكواد تعبئة الكمبوبوكس أوالأدوات الأخرى
Rs.MoveNext
Loop