تقييم الموضوع :
  • 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] اضافة التاريخ في الطباعة في الريبورت فيور hglogtd 4 42 منذ 14 دقيقة مضت
آخر رد: hglogtd
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 2 48 منذ 2 ساعة مضت
آخر رد: khadija_seedi_ali
Video [VB.NET] كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر elhon.tec 0 31 منذ 7 ساعة مضت
آخر رد: elhon.tec
  اضافة عمود من نوع image ل bound datagridview noway 1 70 17-11-16, 12:08 PM
آخر رد: Genius Live
  كيف يمكن اضافة مجموعة حقول الي datagridview والتعديل عليها مباشرتا dark1459 2 71 15-11-16, 10:30 PM
آخر رد: السرور
  اضافة الاصناف جديد بشرط %Eman% 5 232 09-11-16, 01:39 PM
آخر رد: walkady
Thumbs Up اضافة كود جمع و طرح في داتا قريد ص hglogtd 4 100 27-10-16, 03:15 AM
آخر رد: hglogtd
  اضافة الليست بوكس علي هيئة تيكست اللي قاعدة البيانات makky 3 160 16-10-16, 06:09 PM
آخر رد: makky
  اضافة وقت الى وقت Mohamed20 5 127 02-10-16, 04:51 AM
آخر رد: ممدوح
  اضافة اكثر من ليست بوكس الي قاعدة البيانات makky 1 110 26-09-16, 09:57 PM
آخر رد: سعود

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


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