تقييم الموضوع :
  • 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] اضافة سريال لكل عملية محمد اسماعيل 3 44 منذ اقل من1 دقيقه مضت
آخر رد: asemshahen5
  [VB.NET] اضافة الملفات محمد اسماعيل 9 589 10-12-18, 03:49 PM
آخر رد: tuscake
  اضافة بيانات اكثر من جدول في الكرستال المتألق9 1 56 02-12-18, 04:06 PM
آخر رد: Rabeea Qbaha
  [سؤال] اضافة التاريخ الى قاعدة البيانات allo5_800 2 83 18-11-18, 02:17 AM
آخر رد: allo5_800
  محتاج اضافة داخل الفيجوال بيسك 2010 Mohamed Magdy 2 76 14-11-18, 02:55 PM
آخر رد: Mohamed Magdy
Heart اريد طريقة اضافة رقم صفر قبل الرقم ahmadpal 6 159 12-11-18, 01:00 PM
آخر رد: elgokr
  لوسمحتم كود اضافة وحفظ وتعديل وحذف وبحث احمد خطاب 1 79 10-11-18, 12:39 PM
آخر رد: dasktop
  [VB.NET] اضافة سريال لكل عملية محمد اسماعيل 2 81 07-11-18, 08:00 PM
آخر رد: dasktop
  هل من الممكن اضافة html editor الى برنامج ديسك توب nabil.1710 2 96 05-11-18, 01:10 AM
آخر رد: nabil.1710
  [VB.NET] طلب كود اضافة لغات للبرنامج XBOOBX 2 87 31-10-18, 11:36 PM
آخر رد: elgokr

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


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