مشكلة في التعديل

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

اخي ارجو منك حصر مشكلتك لأن بصراحه كودك يحتاج تحسين كثييييير!!

أخي

مشكلتي بإختصار في كود الحفظ والتعديل

أريد كود جديد للحفظ والتعديل (سواء في زر واحد أو كل كود في زر مستقل) يتناسب مع برنامجي ولا يظهر أي مشاكل

لأن الأكواد التي جربتها تحل مشكلة وتظهر مشكلة أخرى

وموعد تسليم المشروع أزف وأنا لم أجد حل

وشكراً

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

اخي ممكن توضح اين الخطأ؟ او قم بكتابة رسالة الخطأ ..

أستاذي

عند التعديل على البيانات يقبل التعديل على جميع البيانات لكن المشكلة أنه في حال التعديل على الموظفين في نفس البرنامج لا يقبل أن يضيف موظف ثاني أو يحذف أحد الموظفين الموجودين في الداتا قريد

هل وضحت الفكرة؟

أستاذي

كما ترى بالصورة

عند التعديل باستخدام الكود التالي :

Private Sub Button1_Click_3(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            con.Open()
              com_update.Parameters("e7tiajat").Value = TextBox_ahtyajat.Text
                com_update.Parameters("from_dateg_d").Value = ComboBox_d_d_from.SelectedItem
                com_update.Parameters("from_dateg_m").Value = ComboBox_d_m_from.SelectedItem
                com_update.Parameters("from_dateg_y").Value = ComboBox_y_from.SelectedItem
                com_update.Parameters("from_datehej_d").Value = ComboBox_h_d_from.SelectedItem
                com_update.Parameters("from_datehej_m").Value = ComboBox_h_m_from.SelectedItem
                com_update.Parameters("from_datehej_y").Value = ComboBox_h_y_from.SelectedItem
                com_update.Parameters("note").Value = TextBox_molahdat.Text

                com_update.Parameters("pro_name").Value = ComboBox_prp.Text
                com_update.Parameters("to_dateg_d").Value = ComboBox_d_d_to.SelectedItem
                com_update.Parameters("to_dateg_m").Value = ComboBox_d_m_to.SelectedItem
                com_update.Parameters("to_dateg_y").Value = ComboBox_d_y_to.SelectedItem
                com_update.Parameters("to_datehej_d").Value = ComboBox_h_d_to.SelectedItem
                com_update.Parameters("to_datehej_m").Value = ComboBox_h_m_to.SelectedItem
                com_update.Parameters("to_datehej_y").Value = ComboBox_h_y_to.SelectedItem
                com_update.Parameters("vinerycat").Value = TextBox_vi.Text


                If RadioButton_nofed.Checked = True Then
                    com_update.Parameters("execution").Value = "نفذ"
                Else
                    com_update.Parameters("execution").Value = "لم ينفذ"
                End If

                Dim i As Integer

                'كود لعمل الادراج حذف تعديل على عموةد معين في داتا قريد
                Dim dgcount As Integer = DataGrid1.BindingContext(DataGrid1.DataSource, DataGrid1.DataMember).Count
                ' Dim i As Integer
                For i = 0 To dgcount - 1


                    com_update.Parameters("Original_emp_id").Value = DataGrid1.Item(i, 0)
                    com_update.Parameters("Original_ID").Value = DataGrid1.Item(i, 0)
                    com_update.Parameters("emp_name1").Value = DataGrid1.Item(i, 1)
                    com_update.Parameters("emp_name2").Value = DataGrid1.Item(i, 2)
                    com_update.Parameters("emp_name3").Value = DataGrid1.Item(i, 3)
                    com_update.Parameters("emp_name4").Value = DataGrid1.Item(i, 4)



                    com_update.ExecuteNonQuery()
                Next
Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        con.Close()
    End Sub
End Class

يحدث ما يلي :

تظهر رسالة الخطأ التالية:

ويتم التعديل ما عدا :

- التنفيذ (رقم6) لا يقبل التعديل على الريديو بوتن نهائياً

- يعدل فقط على بيانات البرنامج المرتبط بالسجل الذي عليه المؤشر في الداتا قريد(رقم2) وعند الانتقال بالمؤشر إلى السجل الأخر نجد التكست بوكس فارغ و لم يجري أي تعديل على الكمبوبوكس

- ولا يقبل التعديل بإضافة مكلف ثاني(رقم4) أو حذف مكلف (رقم3)

- عند وضع المؤشر في عمود الرقم في الداتاقريد تمسح البيانات الموجودة في التكست بوكس فقط

آمل أن تكون الفكرة واضحة

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

اخي المشكلة انك ادخلت قيمة مكررة, تأكد من عدم تكرار قيمة المفتاح الاساسي؟