如何為 DataGridView 創建自增列？

Question

我需要向 DataGridView 添加一個自增列。 每次向網格中添加一行時，我都想增加No列。

我的Form_Load代碼：

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

    DataGridView1.ColumnCount = 6

    DataGridView1.Columns(0).Name = ("No")
    DataGridView1.Columns(1).Name = ("NoArticulo")
    DataGridView1.Columns(2).Name = ("Descripcion")
    DataGridView1.Columns(3).Name = ("Cantidad")
    DataGridView1.Columns(4).Name = ("Precio")
    DataGridView1.Columns(5).Name = ("Total")
End Sub

添加按鈕的 DataGridView 按鈕單擊事件：

Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click

    Dim articulo, cantidad As Integer
    Dim precio, total1 As Double
    Dim i As Integer = 0

    articulo = txtArticulo.Text.Trim()
    cantidad = txtCantidad.Text.Trim()
    precio = txtPrecio.Text.Trim()
    total1 = txtPrecio.Text.Trim()

    'Agrego Linea a DataGridView
    Dim row As String() = New String() {1, articulo, "No disponible", cantidad, precio, total1}
    DataGridView1.Rows.Add(row)

End Sub

我怎樣才能使這項工作？

Answer 1

Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click    
    Dim LastIndex As Integer = DataGridView1.Rows.Count - 1
    Dim LastNo As Integer = Integer.Parse(DataGridView1.Rows(LastIndex).Cells(0).Value)
    Dim NewNo As String = (LastNo + 1).ToString()

    Dim row As String() = New String() {NewNo, txtArticulo.Text, "No disponible", txtCantidad.Text, txtPrecio.Text, txtPrecio.Text}
    DataGridView1.Rows.Add(row)
End Sub

但是請注意：如果此視圖是從真實的數據庫表加載的，您幾乎總是希望依靠數據庫生成 ID 值的能力。 否則，這是一個等待爆發的巨大競爭條件。