+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : تعديل على كود بسيط في list (/showthread.php?tid=16447)
تعديل على كود بسيط في list - mohfar - 14-07-16
السلام عليكم ممكن كود للكلمة التي يتم اختيارها من list تساوي text18 علما اني استخدمت ميزة البحث في قاعدة البيانات وحسب الكود التالي
PHP كود :
List1.Visible = True
On Error Resume Next: Err.Clear
Adodc3.RecordSource = "Select str From Table1 where [str] LIKE '%" & Trim$(Text18.Text) & "%'"
Adodc3.Refresh
List1.Clear
Do While Not Adodc3.Recordset.EOF
List1.AddItem Adodc3.Recordset![Str]
Adodc3.Recordset.MoveNext
Loop
تم حل المشكلة وبكل بساطة بلكود
text18.text=list1.text
والان صادفتني مشكلة ثانية وهيه تكرار الكلمات طبق الاصل في list وانا اريد فقط المختلفة بشكل بسيط اي مثال اسم محمد عند ادخالة واختيارة اكثر من مرة تضاف الى الليست خمس مرات وانا اريد اذا تم ادخال محمد مرة و كلمة محمدددد يظهرن الاسمين فقط لا غير وبدون تكرار في الليست