[aljzazy]

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       For i As Integer = 0 To dgv_employees.Rows.Count - 1
           If dgv_employees.Rows(i).Cells(0).Value = ID.Text Then
               MsgBox("هذا الموظف سبق وتم اضافته من قبل")
               Exit Sub
           End If
       Next
       Dim x As Integer
       dgv_employees.Rows.Add()
       x = dgv_employees.Rows.Count - 1
       dgv_employees(0, x).Value = ID.Text
       dgv_employees(1, x).Value = Name_Emp.Text
       dgv_employees(2, x).Value = ID_Emp.Text
       dgv_employees(3, x).Value = grade_Emp.Text
   End Sub