Aggiungere righe in una GridView da codice

Per aggiungere da codice righe alla fine di una GridView, si può utilizzare il Metodo "GridView.Rows.Insert()".

Di seguito mostriamo un esempio, in cui viene aggiunta alla fine una riga a una GridView, ogni qual volta si fa clic su una qualsiasi riga della GridView:

Public Sub Form_Open()

 With GridView1
   .Columns.Count = 3
   .Rows.Count = 1
 End With

 With GridView1[0, 0]
   .RichText = GridView1.Rows.Count
 End With

 For b As Byte = 0 To GridView1.Columns.Max
   GridView1[0, b].Background = Color.Yellow
 Next

End


Public Sub GridView1_Click()

 GridView1.Rows.Insert(GridView1.Rows.Count)

 With GridView1[GridView1.Rows.Max, 0]
' Nella nuova nuova riga inserisce l'attuale numero crescente:
   .RichText = GridView1.Rows.Count
 End With

 For b As Byte = 0 To GridView1.Columns.Max
' Colora di giallo lo sfondo della nuova riga:
   GridView1[GridView1.Rows.Max, b].Background = Color.Yellow
 Next

End

E' comunque possibile anche applicare l'istruzione INC alla Proprietà ".Rows.Count":

Public Sub GridView1_Click()

 Inc GridView1.Rows.Count

 With GridView1[GridView1.Rows.Max, 0]
' Nella nuova nuova riga inserisce l'attuale numero crescente:
   .RichText = GridView1.Rows.Count
 End With

 For b As Byte = 0 To GridView1.Columns.Max
' Colora di giallo lo sfondo della nuova riga:
   GridView1[GridView1.Rows.Max, b].Background = Color.Yellow
 Next

End

Si può inoltre usare direttamente la Proprietà ".Rows.Count", aggiungendo ad essa il numero di righe desiderato:

Public Sub Form_Open()

 With GridView1
   .Rows.Count = 4
   .Columns.Count = 3
 End With

 For b As Byte = 0 To GridView1.Rows.Max
   GridView1[b, 0].Text = CStr(b)
 Next

End


Public Sub GridView1_Click()
 
 GridView1.Rows.Count = GridView1.Rows.Count + 1
 
 GridView1[GridView1.Rows.Max, 0].Text = CStr(GridView1.Rows.Max)
 
End