تقييم الموضوع :
  • 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 


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعدة في اضافة save & restore trakktour 7 97 منذ 6 ساعة مضت
آخر رد: trakktour
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 61 12-02-17, 08:06 PM
آخر رد: مساعدة
  كيف اضافة ازرار مثل هذا Mohamed20 3 121 27-01-17, 07:59 PM
آخر رد: مساعدة
  اضافة صور فى subitem Mohamed20 6 195 21-01-17, 03:01 PM
آخر رد: Mohamed20
  [VB.NET] مشكلة في اضافة ايميلات لـlistbox 3asfa~mdmra 4 94 19-01-17, 12:14 AM
آخر رد: 3asfa~mdmra
  ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER معتز الجازوي 0 112 26-12-16, 05:13 AM
آخر رد: معتز الجازوي
  [VB.NET] استفسار عن اضافة عبدالرحمن المكاوي 8 263 20-12-16, 06:48 PM
آخر رد: zinom
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 5 240 17-12-16, 07:52 PM
آخر رد: محمد كريّم
  اضافة كود الباركود في الطباعة hglogtd 3 181 16-12-16, 06:38 PM
آخر رد: hglogtd
  اضافة تاريخ عبدالرحمن المكاوي 1 134 13-12-16, 08:28 PM
آخر رد: عبدالرحمن المكاوي

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


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