[اليوم السابع]

السلام عليكم اخي الكريم 
اليك ماتريد مع ان الطريقة التي تريدها غير عملية
الاصح ان تكون البيانات مخزنة في مكان ما 
هذا كود لانشاء الداتا غرايد والاعمدة فيها

كود :

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       DataGridView1.ColumnCount = 2
       DataGridView1.Columns(0).Name = "ID"
       DataGridView1.Columns(1).Name = "Name"
   End Sub

وهذا كود في البوتون لاظهار ماتكتبه من رقم في التكست بوكس الى الداتا غرايد
وضعت لك 3 اسماء يمكنك زيادتها

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim ii As Integer = DataGridView1.Rows.Count - 1
       If Val(TextBox1.Text) = 1 Then
           DataGridView1.Rows.Add()
           DataGridView1.Rows(ii).Cells(0).Value = Val(TextBox1.Text)
           DataGridView1.Rows(ii).Cells(1).Value = "Ahmad"
       ElseIf Val(TextBox1.Text) = 2 Then
           DataGridView1.Rows.Add()
           DataGridView1.Rows(ii).Cells(0).Value = Val(TextBox1.Text)
           DataGridView1.Rows(ii).Cells(1).Value = "Ibrahim"
       ElseIf Val(TextBox1.Text) = 3 Then
           DataGridView1.Rows.Add()
           DataGridView1.Rows(ii).Cells(0).Value = Val(TextBox1.Text)
           DataGridView1.Rows(ii).Cells(1).Value = "Salem"
           ' وهكذا يمكنك اضافة الاسماء
       End If
   End Sub

شكرا لك مقدما اخي جاري التجربه