مساحة اعلانات نصية ذهبية |
||
اعلن هنا | اعلن هنا | اعلن هنا |
|
|
|
|
أدوات الموضوع | انواع عرض الموضوع |
#1
|
|||
|
|||
[VB.NET] تغيير لون بعض Items فى Combobox بناء على اختيارات Combobox آخر
<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 |
pakgestore | pakgestore | pakgestore | pakgestore | pakgestore | pakgestore | pakgestore | pakgestore | pakgestore | pakgestore |
|
|
المواضيع المتشابهه | ||||
الموضوع | كاتب الموضوع | المنتدى | مشاركات | آخر مشاركة |
الماجد: لا يجوز للآباء أن يتدخلوا في اختيارات أبنائهم الشخصية | eshrag | مؤشرات google | 0 | 10-04-2017 08:22 PM |
الماجد: لا يجوز للآباء أن يتدخلوا في اختيارات أبنائهم الشخصية | eshrag | مؤشرات google | 0 | 10-03-2017 04:55 PM |
اختيارات الفيفا بين الحقيقة والواقع | اشراق العالمrss | اشراق شامل - منوعات | 0 | 01-09-2013 02:50 PM |
كيف اصنع قرص ذو اختيارات مثل hiren's bootcd | eshrag.net | اشراق شامل - منوعات | 0 | 07-03-2011 04:40 PM |
( برنامج اختيارات 2.0.1 ) لعمل اختبار اختياري تصحيح تلقائي على الشاشة | eshrag.net | المنتدى العام - مواضيع عامة | 0 | 08-11-2010 11:30 AM |
شراء روابط نصية | |
راسلنا الآن لشراء روابط نصية باك لينك وجيست بوست | خدمات الباك لينك والروابط النصية |
روابط نصية AAXA |
عسل النحل |
روابط نصية AA1A | |||||
كورة لايف | koora live | مباريات اليوم بث مباشر | kora 360 | koora4live | كورة لايف |
koora live | مباريات اليوم بث مباشر | kora 360 | koora4live | kooralive | مساحة إعلانيه |
روابط نصية2 M4U | ||||
متجر كي ستور | شدات ببجي اقساط | بطاقات قوقل بلاي | بطاقات ايتونز | اكواد شدات ببجي |
روابط نصية AAZ | ||
متجر الرياض | شدات ببجي | شحن شدات ببجي |
روابط نصية KSM | |||||||
خصومات | هدايا وكوبونات | توفير المال | مال واستثمار | صفقات وتسوق | عروض اسواق السعودية | تحسين مالي | كوبونات |
روابط نصية AN | ||||
يلا شوت | يلا شوت | يلا لايف | yalla shoot | يلا شوت |
روابط نصية M11 | |||||||
كورة جول | يلا لايف | دوت سبورت | bein match | yalla shoot | yalla shoot | koora live | koora live |
يلا شوت | koora4live | سوريا لايف | تابع لايف | كورة لايف | كورة جول | كورة لايف | koora live |
روابط نصية AWA | ||||
كورة لايف | Koora live | يلا شوت | Yalla shoot | يلا شوت |
روابط نصية AA3A | ||||
تقييم شركة exness | تقييم شركة binance | تقييم شركة avatrade | تقييم شركة evest | افضل شركات التداول |
روابط نصية S22 | ||||
تشليح السيارات بالرياض | شراء سيارات تشليح بالرياض | تشليح | تشليح الحاير | تشليح السلى |
موقع شراء سيارات تشليح | شراء سيارات تشليح | تشليح السيارات | قطع غيار تشليح | تشاليح |
روابط نصية AAPA | ||||
دراما كافيه | دراما صح | اهواك Tv | فوستا | شبكتي Tv |
Syria liv | مساحة إعلانيه |
روابط نصية AA25 | ||
عبادي الخليج | شدات ببجي | شدات ببجي تمارا |