تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اضافة خيار في comobox
#1
بسم الله الرحمن الرحيم

لدي combobox لنوع الفاتورة يتم تعبئته من جدول أنواع الفواتير في قاعدة البيانات
ويحتوي على: 
1 فاتورة مشتريات
2 فاتورة مبيعات

اريد طريقة اضيف بها خيار غير الخيارات الموجودة في الجدول مثل (بدون) أو (أخرى) أو (الكل)

علما أني ضبطت خاصية  dropdownstyle وجعلتها تساوي dropdownlist
 
وشكراً 
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
    Dim item As String "Any Name"
 
       If Not ComboBox1.Items.Contains(CType(itemObject)) Then
            ComboBox1
.Items.Add(CType(itemObject))
 
       End If 
الرد }}}}
تم الشكر بواسطة: HASAN6.0
#3
اشكرك أخي HASAN6.0 على تفاعلك
بس ما ضبط معي الاكواد أعلاه للأسف
أنا حطيتها في load للفورم
الرد }}}}
تم الشكر بواسطة:
#4
الكود ComboBox1.Items.Add لن يعمل إذا كانت الأداة تم ربطها بقاعدة البيانات.
الرد }}}}
تم الشكر بواسطة:
#5
الأخ ممدوح

إقتباس :الكود ComboBox1.Items.Add لن يعمل إذا كانت الأداة تم ربطها بقاعدة البيانات.

عفوا انا غالبا لا أكتب أكواد للداتا بيز لكن انا مفهومي للامر كالتالي

انه من الممكن ان تسترجع قيمة عمود معين من الداتا بيز و تقوم بتحويله الي مصفوفة ثم تستخدم المصفوفة نفسها و تضيف لها بيانات اخري او تقوم بعمل Sort لها او تتعامل مع المصفوفة كما يحلو لنا ثم و في النهاية تربطها ب الكومبوبوكس


عموما الكود التالي قد يوضح الفكرة .... و علي فكرة انا لم أختبر الكود لكن الهدف منه هو التوضيح لا غير

PHP كود :
   Private Function GetCustomers(connectionString As StringqueryString 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(queryStringdbConn)
 
           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(connectionStringqueryString)
 
       Dim item As String "any item you wanna add "
 
       If Not customers.Contains(itemThen
            customers
.Add(item)
 
       End If
 
       ' sort customers
        customers.OrderBy(Function(customer) customer.ToString()).ToList()
        ComboBox1.DataSource = customers 


في الرابط التالي ستجد المصدر الذي اخذت منه الفكرة و قمت بتطويرها قليلا

المصدر
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية اضافة change password بدون استخدام الكنترول ؟ ahmednab 1 310 26-05-17, 06:57 PM
آخر رد: النسر79
  اضافة استعلامات جديدة rabeh.ram 10 191 22-05-17, 03:59 AM
آخر رد: rabeh.ram
  اضافة وتعديل وحذف وبحث في وضع الاتصال المنفصل khaled12345 9 228 18-05-17, 12:34 AM
آخر رد: khaled12345
  [سؤال] ممكن طريقة اضافة سنوات في التاريخ Abdulaziz Hazazi 2 90 06-05-17, 09:59 PM
آخر رد: أسامة السالمي
  كيفية اضافة ملف صوتى الى برنامجى OakenShield 2 74 25-04-17, 02:33 PM
آخر رد: tarek
  طلب مساعدة في اضافة save & restore trakktour 10 470 22-04-17, 06:00 PM
آخر رد: sambro
  ,اضافة تكست للريبورت alma_fandi 6 177 22-04-17, 05:59 PM
آخر رد: alma_fandi
Photo [سؤال] بخصوص اضافة تمرير بيناتا للداتا قريد فيو من تيكست بوكس diab4diab 1 87 20-04-17, 05:26 AM
آخر رد: أسامة السالمي
  مشكلة في اضافة كافة حقول الـ DGV الى قاعدة البيانات كود برمجي 11 316 18-04-17, 11:03 PM
آخر رد: كود برمجي
Wink اضافة اعلان ادسينس على واجهة البرنامج Basel_hmd 0 72 11-03-17, 04:48 PM
آخر رد: Basel_hmd

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم