ممكن كود ترقيم تلقائي في الداتا غريد فيو

PHP كود :

For Each Row As DataGridViewRow In DataGridView1.Rows
            If Row.IsNewRow Then Continue For
            Row.HeaderCell.Value = (Row.Index + 1).ToString
        Next

PHP كود :

Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
        Dim strRowNumber As String = (e.RowIndex + 1).ToString
        Dim size As SizeF = e.Graphics.MeasureString(strRowNumber, Me.Font)

        DataGridView1.RowHeadersWidth = 60

        Dim b As Brush = SystemBrushes.ControlText
        e.Graphics.DrawString(strRowNumber, Me.Font, b, e.RowBounds.Location.X + 15, e.RowBounds.Location.Y + ((e.RowBounds.Height - size.Height) / 2))
    End Sub

PHP كود :

Private Sub DataGridView1_RowsAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
 For i As Integer = 0 To DataGridView1.Rows.Count - 1
  DataGridView1.Rows(i).HeaderCell.Value = (i + 1).ToString
 Next
End Sub

Private Sub DataGridView1_RowsRemoved(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsRemovedEventArgs) Handles DataGridView1.RowsRemoved
  For i As Integer = 0 To DataGridView1.Rows.Count - 1
    DataGridView1.Rows(i).HeaderCell.Value = (i + 1).ToString
  Next
End Sub

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DataGridView1.Columns(0).ReadOnly = True ' نجعل عمود الترقيم للقراءة فقط 

    End Sub





    Private Sub DataGridView1_CellValidating(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles DataGridView1.CellValidating

        If e.ColumnIndex = 1 Then ' إذا كان العمل علي عمود الرقم

            If Me.DataGridView1.IsCurrentCellDirty Then ' هل يتم العمل علي الخلية

                If e.FormattedValue <> String.Empty Then ' قيمة الخلية ليست فارغة

                    Me.DataGridView1.Rows(e.RowIndex).Cells(0).Value = e.RowIndex + 1 ' يتم إضافة ترقيم للعمود الأول وذلك عند طريق الاندكس تبع الصف بزيادة واحد

                Else

                    Me.DataGridView1.Rows(e.RowIndex).Cells(0).Value = Nothing ' إذا الخلية فارغة يتم إزالة الترقيم

                End If

            End If

        End If

    End Sub