|
إنضمامك إلي منتديات استراحات زايد يحقق لك معرفة كل ماهو جديد في عالم الانترنت ...
انضم الينا
#1
| ||
| ||
<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 |