منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعبئة أكثر من كومبوكس بكود واحد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=31032)

تعبئة أكثر من كومبوكس بكود واحد - مصمم هاوي - 23-08-19

خطرت ببالي فكرة حاولت تطبيقها بكود لكنه أراه غير مرضي على الرغم من كونه بشتغل تمام
والخلاصة
فهل يوجد كود أفضل لتعبئة أكثر من كومبوكس ببيانات جدول وذلك بكود واحد وقد استخدمت هذا الكود

كود :
Combday1.Clear
Combday1.Clear
If DB.State = adStateClosed Then Call ConnectionDatabase
   
Call ConnectionDatabase
If rs.State = adStateOpen Then rs.Close
rs.Open "Select * From TBL_Day order by DNo", DB, adOpenStatic, adLockOptimistic
   
If rs.RecordCount > 0 Then
   Do Until rs.EOF
          Combday1.AddItem rs![Day]
         Combday2.AddItem rs![Day]
       
          rs.MoveNext
   Loop
   '
   rs.MoveFirst
'
End If


RE: تعبئة أكثر من كومبوكس بكود واحد - سعود - 23-08-19

اكيد ممكن لكن نحتاج تضييق دائرة العمل واقصد حصر الموضوع على فكرة محددة  حتى لا تتشعب واكتشف اني لم اقدم فائدة.
تحياتي اخي الكريم

RE: تعبئة أكثر من كومبوكس بكود واحد - مصمم هاوي - 23-08-19

شكراً على مرورك العطر أخي سعود ولكن التعبئة من جدول واحد فقط