[VB.NET] تغيير لون بعض Items فى Combobox بناء على اختيارات Combobox آخر

محروم.كوم · #1 04-09-2020, 06:40 AM

<div>هذه هى واجهة البرنامج

كل Combobox من الأربعة السفلى يعتمد على اختيار ما قبله
ما أريده هو أنه عندما يتم اخيار Available فى Combobox المسمى Status كما بالصورة

يتغير لون items فى Combobox المسمى Name والتى يكون مسجلاً أمامها Yes
فى قاعدة البيانات فى خانة Available كما بالصورة

وهذا هو كود البرنامج:
كود:
Imports System.Data.OleDb
Public Class Form1
* *Dim cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=Stock.accdb")
* *Dim da As OleDbDataAdapter
* *Dim cm As OleDbCommandBuilder
* *Dim cmd As OleDbCommand
* *Dim itemRoute As String()
* *Private Sub ComboType_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboType.SelectedIndexChanged

* * * *ComboName.Items.Clear()
* * * *ComboQuantity.Items.Clear()
* * * *ComboStore.Items.Clear()

* * * *If ComboType.SelectedItem = "Food" Then

* * * * * *Dim dt1 As New DataTable
* * * * * *dt1.Clear()
* * * * * *Dim sql As String = "SELECT * FROM Food"
* * * * * *da = New OleDbDataAdapter(sql, cnn)
* * * * * *cm = New OleDbCommandBuilder(da)
* * * * * *da.Fill(dt1)
* * * * * *For ii As Integer = 0 To dt1.Rows.Count - 1
* * * * * * * *ComboName.Items.Add(dt1(ii)(0))
* * * * * *Next

* * * *End If

* * * *If ComboType.SelectedItem = "Clothes" Then

* * * * * *Dim dt1 As New DataTable
* * * * * *dt1.Clear()
* * * * * *Dim sql As String = "SELECT * FROM Clothes"
* * * * * *da = New OleDbDataAdapter(sql, cnn)
* * * * * *cm = New OleDbCommandBuilder(da)
* * * * * *da.Fill(dt1)
* * * * * *For ii As Integer = 0 To dt1.Rows.Count - 1
* * * * * * * *ComboName.Items.Add(dt1(ii)(0))
* * * * * *Next

* * * *End If
* *End Sub

* *Private Sub ComboName_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboName.SelectedIndexChanged

* * * *ComboQuantity.Items.Clear()
* * * *ComboStore.Items.Clear()

* * * *If ComboType.SelectedItem = ("Food") Then

* * * * * *Dim dt2 As New DataTable
* * * * * *dt2.Clear()
* * * * * *Dim sql2 As String = "SELECT * FROM Food WHERE Food = '" & ComboName.SelectedItem & "'"
* * * * * *da = New OleDbDataAdapter(sql2, cnn)
* * * * * *cm = New OleDbCommandBuilder(da)
* * * * * *da.Fill(dt2)
* * * * * *Dim quants As String = dt2(0)(1)
* * * * * *Dim quant As String() = quants.Split("-")
* * * * * *For ii As Integer = 0 To quant.Count - 1
* * * * * * * *ComboQuantity.Items.Add(quant(ii))
* * * * * *Next
* * * * * *Dim stores As String = dt2(0)(2)
* * * * * *Dim store As String() = stores.Split("-")
* * * * * *itemRoute = store

* * * *End If

* * * *If ComboType.SelectedItem = ("Clothes") Then

* * * * * *Dim dt2 As New DataTable
* * * * * *dt2.Clear()
* * * * * *Dim sql2 As String = "SELECT * FROM Clothes WHERE Clothes = '" & ComboName.SelectedItem & "'"
* * * * * *da = New OleDbDataAdapter(sql2, cnn)
* * * * * *cm = New OleDbCommandBuilder(da)
* * * * * *da.Fill(dt2)
* * * * * *Dim quants As String = dt2(0)(1)
* * * * * *Dim quant As String() = quants.Split("-")
* * * * * *For ii As Integer = 0 To quant.Count - 1
* * * * * * * *ComboQuantity.Items.Add(quant(ii))
* * * * * *Next
* * * * * *Dim stores As String = dt2(0)(2)
* * * * * *Dim store As String() = stores.Split("-")
* * * * * *itemRoute = store

* * * *End If

* *End Sub

* *Private Sub ComboQuantity_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboQuantity.SelectedIndexChanged

* * * *ComboStore.Items.Clear()
* * * *ComboStore.Items.Add(itemRoute(ComboQuantity.Sele ctedIndex))

* *End Sub
End Class __DEFINE_LIKE_SHARE__

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
[ غير ذلك ] مشكلة في ربط combobox مع combobox	محروم.كوم	منتدى أخبار المواقع والمنتديات العربية والأجنبية	0	08-10-2016 03:10 AM
combobox	محروم.كوم	منتدى أخبار المواقع والمنتديات العربية والأجنبية	0	09-13-2010 03:10 AM
العائلات على موعد مع أشهى اختيارات الإفطار والعشاء في فستيفال سنتر	محروم.كوم	منتدى أخبار المواقع والمنتديات العربية والأجنبية	0	08-04-2010 05:50 PM
العائلات على موعد مع أشهى اختيارات الإفطار والعشاء في فستيفال سنتر	محروم.كوم	منتدى أخبار المواقع والمنتديات العربية والأجنبية	0	08-04-2010 02:50 PM
طلب برنامج يضع اختيارات على الشاشة عند ورود مكالمة ..	محروم.كوم	منتدى أخبار المواقع والمنتديات العربية والأجنبية	0	05-16-2010 08:30 PM