منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عندي كمبوبوكس باسم cmb1
في اللود تبع الفورم بتاخذ قيمها .
القيمة الاساس المخفية هي ال iD
والقيمة الي بتظهر هو الاسم ..
....... الى حد هنا كل شي تمام مافيه اي مشكلة ..
المشكلة لما اريد وضع حدث في :
()Cmb1_selectedindIndexChanged

يعني مثلا لما اختار العميل " علي " مثلا كنت اريد مجرد ما اعمل تشنجيد للقيمة عن طريق الكمبوبوكس يروح ينفذ ويظهر لي قيم بناء على رقم iD تبع العميل ذا ..
بس المشكلة بيظهر لي خطأ لان الكمبوبوكس بتحمل قيمة الانديكس 0 بمجرد تحميل الفورم وبيظهر لي ايرور فورا !!

ولما احول حدث التشينجد تبع الكمبوبوكس واحط الامر في Buton بيعمل معي زي الفل .. بس انا اتمنى الاقي حل وتتنفذ بمجرد التغيير من الكومبو نفسها ..

ان شاء الله اكون قدرت اوصل المعلومة ..
وشكرا لكم ..

في حدث load form ضع cmb1.Selectedindex=1
او ضعه عند نهاية تعبئة cmb1

لازم تفاصيل اكثر لاني جربت مثال بسيط داتاتيبل وقت التشغيل ولم اجد اي مشكلة مماذكرت..
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 

Form1:

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 

Add:

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 

عملت الكود في حدث الكمبوبوكس :

SelectionChangeCommitted

ونجح معي .. شكرا لكم

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Ali_hassn

salamandal

justforit

Ali_hassn