piter11
جمعه 03 بهمن 1393, 09:22 صبح
مندر یک فرم 2تا تکس باکس دارم یکی شاخه یکی هم نام خدمات حالا تو یه فرم دیگه دو تا کمبو باکس گذاشتم اونم یکی برای واکشی اطلاعات فیلد شاخه از جدول یکی دیگر هم بر اساس کمبوباکس شاخه بیاد نام خدمات نشون بده حالا میخوام مثلا تو شاخه ,رنگ تعریف کنم بعد تو نام خدمات, سبز , دوباره یه شاخه دیگه تعریف میکنم شاخه, رنگ, نام خدمات, قرمز , ولی وقتی سلکت میکنم تو select indexchange کمبوباکس دوم(نام خدمات) فقط رنگ سبز نشون میده! یعنی چون دوتا شاخه به یک اسم(رنگ) تعریف کردم ایراد میگیره مشکل تو کوئری سلکت ممنون میشم راهنمایی کنید اینم کدش
کد قسمت لود فرم برای کمبو باکس شاخه(اول):
cmd.CommandText = "select shakhe from Tblprice"
con.Open()
Dim sReader2 As SqlDataReader = cmd.ExecuteReader()
If sReader2.Read() Then
While sReader2.Read()
ComboBox1.Items.Add(sReader2(0))
End While
End If
کد selectindexchange کمبو باکس اول (شاخه) برای نمایش اطلاعات نام خدمات(سبز و قرمز......)
cmd.CommandText = "select name from Tblprice where shakhe='" + ComboBox1.Text + "'"
con.Open()
Dim sReader2 As SqlDataReader = cmd.ExecuteReader()
If sReader2.Read() Then
While sReader2.Read()
ComboBox2.Items.Add(sReader2(0))
End While
کد قسمت لود فرم برای کمبو باکس شاخه(اول):
cmd.CommandText = "select shakhe from Tblprice"
con.Open()
Dim sReader2 As SqlDataReader = cmd.ExecuteReader()
If sReader2.Read() Then
While sReader2.Read()
ComboBox1.Items.Add(sReader2(0))
End While
End If
کد selectindexchange کمبو باکس اول (شاخه) برای نمایش اطلاعات نام خدمات(سبز و قرمز......)
cmd.CommandText = "select name from Tblprice where shakhe='" + ComboBox1.Text + "'"
con.Open()
Dim sReader2 As SqlDataReader = cmd.ExecuteReader()
If sReader2.Read() Then
While sReader2.Read()
ComboBox2.Items.Add(sReader2(0))
End While