+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة الكمبوبوكس (/showthread.php?tid=46666)
مشكلة الكمبوبوكس - Ali_hassn - 05-08-23
عندي كمبوبوكس باسم cmb1
في اللود تبع الفورم بتاخذ قيمها .
القيمة الاساس المخفية هي ال iD
والقيمة الي بتظهر هو الاسم ..
....... الى حد هنا كل شي تمام مافيه اي مشكلة ..
المشكلة لما اريد وضع حدث في :
()Cmb1_selectedindIndexChanged
يعني مثلا لما اختار العميل " علي " مثلا كنت اريد مجرد ما اعمل تشنجيد للقيمة عن طريق الكمبوبوكس يروح ينفذ ويظهر لي قيم بناء على رقم iD تبع العميل ذا ..
بس المشكلة بيظهر لي خطأ لان الكمبوبوكس بتحمل قيمة الانديكس 0 بمجرد تحميل الفورم وبيظهر لي ايرور فورا !!
ولما احول حدث التشينجد تبع الكمبوبوكس واحط الامر في Buton بيعمل معي زي الفل .. بس انا اتمنى الاقي حل وتتنفذ بمجرد التغيير من الكومبو نفسها ..
ان شاء الله اكون قدرت اوصل المعلومة ..
وشكرا لكم ..
RE: مشكلة الكمبوبوكس - salamandal - 05-08-23
في حدث load form ضع cmb1.Selectedindex=1
او ضعه عند نهاية تعبئة cmb1
RE: مشكلة الكمبوبوكس - justforit - 05-08-23
لازم تفاصيل اكثر لاني جربت مثال بسيط داتاتيبل وقت التشغيل ولم اجد اي مشكلة مماذكرت..
Module:
PHP كود :
Module Module1
Public dt As New DataTable("tb")
Public Sub createdt()
Dim dtid As New DataColumn("tid", GetType(Integer))
dtid.AutoIncrement = True
dt.Columns.Add(dtid)
dt.Constraints.Add("tb_pk", dtid, True)
dt.Columns.Add("tname", GetType(String))
dt.Columns.Add("email", GetType(String))
dt.Columns.Add("phone", GetType(String))
End Sub
End Module
PHP كود :
Public Class Form1
Private Sub gd()
d.DataSource = dt
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "tname"
ComboBox1.ValueMember = "tid"
d.DefaultCellStyle.BackColor = Color.Black
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
createdt()
gd()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ad As New Add
ad.ShowDialog()
ad.Dispose()
End Sub
End Class
PHP كود :
Public Class Add
Private Sub btnadd_Click(sender As Object, e As EventArgs) Handles btnadd.Click
For Each h As Control In Me.Controls
If TypeOf h Is TextBox Then
If h.Text = "" Then Exit Sub
End If
Next
Dim row As DataRow = dt.NewRow
row(1) = txtname.Text
row(2) = txtemail.Text
row(3) = txtphone.Text
dt.Rows.Add(row)
Me.Close()
End Sub
End Class
RE: مشكلة الكمبوبوكس - Ali_hassn - 09-08-23
عملت الكود في حدث الكمبوبوكس :
SelectionChangeCommitted
ونجح معي .. شكرا لكم