Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For i As Integer = 0 To 4
d.Rows.Add(i, "Name :_" & i, i + 10)
Next
End Sub
Private Sub btnget_Click(sender As Object, e As EventArgs) Handles btnget.Click
TextBox1.Clear()
For i As Integer = 0 To d.Rows.Count - IIf(d.AllowUserToAddRows, 2, 1)
TextBox1.AppendText("Number: " & d.Rows(i).Cells(0).Value & vbTab & "Name: " & d.Rows(i).Cells(1).Value & vbTab & "Age: " & d.Rows(i).Cells(2).Value & vbTab & vbNewLine)
Next
End Sub
