[MOONMICROSYSTEM]

برجاء المساعدة
Try
Application.DoEvents()


If EmployessTextBox.Text > 0 Then

'كود اضافة سجل جديد
Dim Add_NewRow As DataRow = BD_master_DataSet.Tables("Employess").NewRow()

If IDTextBox.Text = "" Then Add_NewRow("code") = DBNull.Value Else Add_NewRow("code") = IDTextBox.Text.Trim
If EmployessTextBox.Text = "" Then Add_NewRow("num") = DBNull.Value Else Add_NewRow("num") = EmployessTextBox.Text.Trim


BD_master_DataSet.Tables("Employess").Rows.Add(Add_NewRow)


'كود حفظ الاضافة
Validate()
EmployessTableAdapter.Update(BD_master_DataSet.Tables("Employess"))
BD_master_DataSet.AcceptChanges()

'تحديث قاعدة البيانات

' DB.Open()
BD_master_DataSet.Clear()
' EmployessTableAdapter.Fill(BD_master_DataSet, "Employess")
' DB.Close()
Me.Validate()
Me.EmployessBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.BD_master_DataSet)
'كود الانتقال الى اخر سجل تم اضافته بعد تخديث قاعدة البيانات

Me.BindingContext(BD_master_DataSet, "Employess").Position = 0

'count()

MsgBox("تم الاضافة بنجاح", 64, "نجاح")

Else

'كود معرفة رقم الصف الحالي في قاعدة البيانات

Dim Row_Num As Integer = Me.BindingContext(BD_master_DataSet, "Employess").Position

'كود حفظ التعديل
BD_master_DataSet.Tables("Employess").Rows(Row_Num).BeginEdit()

If IDTextBox.Text = "" Then BD_master_DataSet.Tables("Employess").Rows(Row_Num).Item("code") = DBNull.Value Else BD_master_DataSet.Tables("Employess").Rows(Row_Num).Item("code") = IDTextBox.Text.Trim
If EmployessTextBox.Text = "" Then BD_master_DataSet.Tables("Employess").Rows(Row_Num).Item("num") = DBNull.Value Else BD_master_DataSet.Tables("Employess").Rows(Row_Num).Item("num") = EmployessTextBox.Text.Trim

BD_master_DataSet.Tables("Employess").Rows(Row_Num).EndEdit()

'كود حفظ التعديل

Validate()
EmployessTableAdapter.Update(BD_master_DataSet.Tables(0))
BD_master_DataSet.AcceptChanges()

' count()
Me.Validate()
Me.EmployessBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.BD_master_DataSet)

MsgBox("تم حفظ التعديل", 64, "نجاح")

End If

Catch ex As Exception

MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try