[salah mansour]

كود
 Public Sub dgv_serial()                                        'اجراء لترقيم صفوف الداتا جريد
        For i As Integer = 0 To dgvdata.Rows.Count - 1
            If dgvdata.Rows.Count > 0 Then
                dgvdata.Rows(i).Cells(0).Value = i.ToString + 1
            End If
        Next
    End Sub

    Private Sub dgvdata_RowsAdded(sender As Object, e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles dgvdata.RowsAdded
        dgv_serial()
    End Sub

    Private Sub dgvdata_RowsRemoved(sender As Object, e As System.Windows.Forms.DataGridViewRowsRemovedEventArgs) Handles dgvdata.RowsRemoved
        dgv_serial()
    End Sub