+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اضافة خيار في comobox (/showthread.php?tid=17356)
اضافة خيار في comobox - umbas - 18-09-16
بسم الله الرحمن الرحيم
لدي combobox لنوع الفاتورة يتم تعبئته من جدول أنواع الفواتير في قاعدة البيانات
ويحتوي على:
1 فاتورة مشتريات
2 فاتورة مبيعات
اريد طريقة اضيف بها خيار غير الخيارات الموجودة في الجدول مثل (بدون) أو (أخرى) أو (الكل)
علما أني ضبطت خاصية dropdownstyle وجعلتها تساوي dropdownlist
وشكراً
RE: اضافة خيار في comobox - silverlight - 19-09-16
PHP كود :
Dim item As String = "Any Name"
If Not ComboBox1.Items.Contains(CType(item, Object)) Then
ComboBox1.Items.Add(CType(item, Object))
End If
RE: اضافة خيار في comobox - umbas - 23-09-16
اشكرك أخي HASAN6.0 على تفاعلك
بس ما ضبط معي الاكواد أعلاه للأسف
أنا حطيتها في load للفورم
RE: اضافة خيار في comobox - ممدوح - 26-09-16
الكود ComboBox1.Items.Add لن يعمل إذا كانت الأداة تم ربطها بقاعدة البيانات.
RE: اضافة خيار في comobox - silverlight - 26-09-16
الأخ ممدوح
إقتباس :الكود ComboBox1.Items.Add لن يعمل إذا كانت الأداة تم ربطها بقاعدة البيانات.
عفوا انا غالبا لا أكتب أكواد للداتا بيز لكن انا مفهومي للامر كالتالي
انه من الممكن ان تسترجع قيمة عمود معين من الداتا بيز و تقوم بتحويله الي مصفوفة ثم تستخدم المصفوفة نفسها و تضيف لها بيانات اخري او تقوم بعمل Sort لها او تتعامل مع المصفوفة كما يحلو لنا ثم و في النهاية تربطها ب الكومبوبوكس
عموما الكود التالي قد يوضح الفكرة .... و علي فكرة انا لم أختبر الكود لكن الهدف منه هو التوضيح لا غير
PHP كود :
Private Function GetCustomers(connectionString As String, queryString As String) As List(Of String)
Dim customers As New List(Of String)()
Dim dbConn = New SqlConnection(connectionString)
dbConn.Open()
Using cmd As New SqlCommand(queryString, dbConn)
Using reader As IDataReader = cmd.ExecuteReader()
While reader.Read()
customers.Add(reader(0).ToString())
End While
End Using
End Using
Return customers
End Function
الكود التالي يوضح طريقة الاستخدام
PHP كود :
Dim queryString As String = "SELECT Customer FROM dbo.Customers;"
Dim connectionString As String = "Your Connection String"
Dim customers As List(Of String) = GetCustomers(connectionString, queryString)
Dim item As String = "any item you wanna add "
If Not customers.Contains(item) Then
customers.Add(item)
End If
' sort customers
customers.OrderBy(Function(customer) customer.ToString()).ToList()
ComboBox1.DataSource = customers
في الرابط التالي ستجد المصدر الذي اخذت منه الفكرة و قمت بتطويرها قليلا
المصدر