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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة ادوات لفيجوال بيسك خالد20 10 1,977 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 350 05-08-23, 02:29 PM
آخر رد: moh61
  [سؤال] كيفية اضافة في اكثر من جدول ahmed_king2023 0 364 29-07-23, 12:03 PM
آخر رد: ahmed_king2023
  اقتناص حدث تحديث او حذف او اضافة ملف ابو محمد محمد محمد 6 560 21-04-23, 05:49 PM
آخر رد: ابو محمد محمد محمد
  [سؤال] كيفية اضافة اكثر من ثلاث معاملات الى عامل التشغيل بواسطة If asmarsou 7 1,167 26-02-23, 11:34 PM
آخر رد: asmarsou
  مشكلة فى اضافة عناصر فى الداتا جريد فيو خالد كامل1 14 1,616 16-02-23, 03:10 AM
آخر رد: خالد كامل1
  [VB.NET] اضافة كرستال ريبورت MOHAMMED ALZWI 2 373 20-12-22, 11:19 AM
آخر رد: MOHAMMED ALZWI
  [VB.NET] خطأ عند اضافة فاتورة مشتريات MOHAMMED ALZWI 2 441 10-12-22, 12:25 PM
آخر رد: MOHAMMED ALZWI
  [VB.NET] خطأ عند اضافة فاتورة مشتريات 0 152 10-12-22, 02:30 AM
آخر رد: MOHAMMED ALZWI
  مساعدة في اضافة زر داخل خلية في الداتا جريد فيو MustafaShaker 4 2,189 22-10-22, 09:13 PM
آخر رد: MORA

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


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