Datagridinize bir sutun ekleyip adına satır no veya istediğiniz bir isim verin ve aşağıdaki kodu Datagridiniz doldurduktan sonraki satıra aşağıdaki kodu yapıştırınız.
Datagridiniz doldurduktan sonraki satıra aşağıdaki kodu yapıştırınız.
Kontrol edebilirmisiniz. VB 2010 konvert yapmadığı için hata aldım kodun sonuna ToString() ekledim.
Dim rowNumber As Integer = 1
For Each row As DataGridViewRow In dataGridView1.Rows
If row.IsNewRow Then
Continue For
End If
row.HeaderCell.Value = rowNumber.ToString()
rowNumber = rowNumber + 1
Next
dataGridView1.AutoResizeRowHeadersWidth(DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders)
Kontrol edebilirmisiniz. VB 2010 konvert yapmadığı için hata aldım kodun sonuna ToString() ekledim.
Dim rowNumber As Integer = 1
For Each row As DataGridViewRow In dataGridView1.Rows
If row.IsNewRow Then
Continue For
End If
row.HeaderCell.Value = rowNumber.ToString()
rowNumber = rowNumber + 1
Next
dataGridView1.AutoResizeRowHeadersWidth(DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders)