[AbdoDabak]

تفضل اخي اتمنى يكون المطلوب

بس انا ما فهمت انت ليه ما بدك تحط قاعدة بيانات

PHP كود :

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 = "AhMed El-Qon"
            DataGridView1.Rows(ii).Cells(2).Value = "+201010759698"
            DataGridView1.Rows(ii).Cells(3).Value = "NON"
            DataGridView1.Rows(ii).Cells(4).Value = "‏‎Sidi Salim, Kafr Ash Shaykh, Egypt‎‏"
            TextBox1.Clear()
            TextBox1.Select()
        ElseIf Val(TextBox1.Text) = 2 Then
            DataGridView1.Rows.Add()
            DataGridView1.Rows(ii).Cells(0).Value = Val(TextBox1.Text)
            DataGridView1.Rows(ii).Cells(1).Value = "Hossam Ibrahim"
            DataGridView1.Rows(ii).Cells(2).Value = "+201202179000"
            DataGridView1.Rows(ii).Cells(3).Value = "hhxx61@yahoo.com"
            DataGridView1.Rows(ii).Cells(4).Value = " ‏الأقصر‏"
            TextBox1.Clear()
            TextBox1.Select()
        ElseIf TextBox1.Text = 1 & vbCrLf & 2 Then
            DataGridView1.Rows.Add()
            DataGridView1.Rows(ii).Cells(0).Value = 1
            DataGridView1.Rows(ii).Cells(1).Value = "AhMed El-Qon"
            DataGridView1.Rows(ii).Cells(2).Value = "+201010759698"
            DataGridView1.Rows(ii).Cells(3).Value = "NON"
            DataGridView1.Rows(ii).Cells(4).Value = "‏‎Sidi Salim, Kafr Ash Shaykh, Egypt‎‏"
            DataGridView1.Rows.Add()
            DataGridView1.Rows(ii + 1).Cells(0).Value = 2
            DataGridView1.Rows(ii + 1).Cells(1).Value = "Hossam Ibrahim"
            DataGridView1.Rows(ii + 1).Cells(2).Value = "+201202179000"
            DataGridView1.Rows(ii + 1).Cells(3).Value = "hhxx61@yahoo.com"
            DataGridView1.Rows(ii + 1).Cells(4).Value = " ‏الأقصر‏"
            TextBox1.Clear()
            TextBox1.Select()
        End If