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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : اريد كود ملئ كومبو بوكس من الدتا قريد (/showthread.php?tid=9184)

اريد كود ملئ كومبو بوكس من الدتا قريد - wolf1120 - 06-06-13

اريد كود ملئ كومبو بوكس من حقل في الدتا قريد


انا وصعت هذ الكود لكنه يقوم بملى عنصر واحد من الحقل فقط والحقل فيه 7 عناصر


كود :
On Error Resume Next: Err.Clear

SQLs = "select NFacture from sto where Fournisseur='" & Text1.Text & "'"

If cc.State = adStateOpen Then cc.Close
cc.Open SQLs, CN, adOpenDynamic, adLockOptimistic

   Set DataGrid1.DataSource = cc
  
Combo2.AddItem cc![NFacture]

المثال في المرفقات

اريد كود ملئ كومبو بوكس من الدتا قريد - Uzerat - 22-08-13

اخي الكريم..

انت بحاجه إلى استخدام الامر for

كود :
On Error Resume Next: Err.Clear

SQLs = "select NFacture from sto where Fournisseur='" & Text1.Text & "'"

If cc.State = adStateOpen Then cc.Close
cc.Open SQLs, CN, adOpenDynamic, adLockOptimistic

   Set DataGrid1.DataSource = cc
for i=0 to cc.recoredcount -1  
Combo2.AddItem cc![NFacture]
cc.movenext
next