[Ali_hassn]

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

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

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


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

[salamandal]

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

[justforit]

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


[Ali_hassn]

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

SelectionChangeCommitted

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