[الوايلي]

السلام عليكم ورحمه الله 

عندي مشكلة بالكمبوبوكس لما اختار سجل المفترض يظهرلي نص يظهر رقم وانا مسوي displayMember لكن بالاستدعاء يظهر الرقم 

PHP كود :

 FillDepartments()
        cmbDep.DataSource = dtdepa
        cmbDep.DisplayMember = "DepName"
        cmbDep.ValueMember = "id" 


المفترض لما اختار السجل يظهر اسم القسم لكن يظهرلي رقمه 

ومشكلة ثانية لما يجلب البيانات مايجيب نفس رقم القسم يختار اول اندكس مثلا رقم 1 والرقم المفترض هو 4 مما يسبب لخبطة خاصة اذا كان فيه اكثر من كمبو بوكس من عدة جداول 

حاولت ارفق المثال بس ماضبط مادري وش المشكلة 

كود اختيار السجل 

PHP كود :

'زر اختيار
        id = DataGridView1.CurrentRow.Cells(0).Value
        cmbEmp.Text = DataGridView1.CurrentRow.Cells(1).Value
        cmbDep.Text = DataGridView1.CurrentRow.Cells(2).Value
        cmbCer.Text = DataGridView1.CurrentRow.Cells(3).Value
        txtSalary.Text = DataGridView1.CurrentRow.Cells(4).Value
        dtpDateNomin.Value = DataGridView1.CurrentRow.Cells(5).Value
        txtExperience.Text = DataGridView1.CurrentRow.Cells(6).Value
        txtPhone.Text = DataGridView1.CurrentRow.Cells(7).Value 


وهذا زر كود الاضافة بالاسفل

PHP كود :

 'زر اضافة
        dt.Rows.Add()
        Dim last As Integer = dt.Rows.Count - 1
        dt.Rows(last).Item("infoEmpID") = cmbEmp.SelectedValue
        dt.Rows(last).Item("infoCertID") = cmbCer.SelectedValue
        dt.Rows(last).Item("infoDepID") = cmbDep.SelectedValue
        dt.Rows(last).Item("infoExpe") = txtExperience.Text
        dt.Rows(last).Item("infoPhone") = txtPhone.Text
        dt.Rows(last).Item("infoSalary") = txtSalary.Text
        dt.Rows(last).Item("infoNomin") = dtpDateNomin.Value
        Dim save As New OleDbCommandBuilder(da)
        da.Update(dt)
        dt.AcceptChanges()
        MessageBox.Show("تمت الاضافة بنجاح")
        Filldgv()
        newInfor() 


وكود التعديل 

PHP كود :

  Dim str As String = "Update informations set infoEmpID=@infoEmpID,infoDepID=@infoDepID,infoCertID=@infoCertID,infoSalary=@infoSalary,infoNomin=@infoNomin,infoExpe=@infoExpe,infoPhone=@infoPhone where id= " & DataGridView1.CurrentRow.Cells(0).Value
        cmd = New OleDbCommand(str, con)
        cmd.Parameters.Add(New OleDbParameter("@infoEmpID", OleDbType.Integer)).Value = cmbEmp.SelectedValue
        cmd.Parameters.Add(New OleDbParameter("@infoDepID", OleDbType.Integer)).Value = cmbDep.SelectedValue
        cmd.Parameters.Add(New OleDbParameter("@infoCertID", OleDbType.Integer)).Value = cmbCer.SelectedValue
        cmd.Parameters.Add(New OleDbParameter("@infoSalary", OleDbType.Currency)).Value = txtSalary.Text
        cmd.Parameters.Add(New OleDbParameter("@infoNomin", OleDbType.Date)).Value = dtpDateNomin.Value
        cmd.Parameters.Add(New OleDbParameter("@infoExpe", OleDbType.VarChar)).Value = txtExperience.Text
        cmd.Parameters.Add(New OleDbParameter("@infoPhone", OleDbType.VarChar)).Value = txtPhone.Text
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
        MessageBox.Show("تم التعديل بنجاح")
        Filldgv()
        newInfor() 


 وكود الحذف

PHP كود :

  'زر حذف
        Dim msg As String = String.Format("هل أنت متأكد من حذف القسم  {0}", DataGridView1.CurrentRow.Cells(1).Value.ToString())
        If (MessageBox.Show(msg, "تأكيد الحذف", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign)) <> Windows.Forms.DialogResult.Yes Then Return
        'رسالة عبارة عن سؤال اذا اختار نعم تم الحذف اذا لا  لم تتم عملية الحذف
        Dim cmd As New OleDbCommand("delete from informations where id= " & DataGridView1.CurrentRow.Cells(0).Value, con)
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
        MessageBox.Show(" تمت عملية حذف البيانات بنجاح ", "تم الحذف", MessageBoxButtons.OK, MessageBoxIcon.Information) 


وكود تفريغ الادوات  اسمه  newInfor()

PHP كود :

'تفريغ الادوات
        cmbEmp.Text = ""
        cmbCer.Text = ""
        cmbDep.Text = ""
        txtExperience.Text = ""
        txtPhone.Text = ""
        txtSalary.Text = ""
        dtpDateNomin.Value = Now.Date 


وشكرا لكم جميعا