اخي جرب هاد الكود
PHP كود :
Dim ii As Integer = DataGridView1.Rows.Count - 1
If TextBox1.Text.Contains(4 & vbCrLf) Then
TextBox1.Text = TextBox1.Text.Replace(4 & vbCrLf, "")
DataGridView1.Rows.Add()
DataGridView1.Rows(ii).Cells(0).Value = 4
DataGridView1.Rows(ii).Cells(1).Value = "4"
DataGridView1.Rows(ii).Cells(2).Value = "+4"
DataGridView1.Rows(ii).Cells(3).Value = "4@yahoo.com"
DataGridView1.Rows(ii).Cells(4).Value = "4"
Label1.Text = TextBox1.Lines.Count
Button1.PerformClick()
ElseIf TextBox1.Text.Contains(3 & vbCrLf) Then
TextBox1.Text = TextBox1.Text.Replace(3 & vbCrLf, "")
DataGridView1.Rows.Add()
DataGridView1.Rows(ii).Cells(0).Value = 3
DataGridView1.Rows(ii).Cells(1).Value = "3"
DataGridView1.Rows(ii).Cells(2).Value = "+3"
DataGridView1.Rows(ii).Cells(3).Value = "3@yahoo.com"
DataGridView1.Rows(ii).Cells(4).Value = "3"
Label1.Text = TextBox1.Lines.Count
Button1.PerformClick()
ElseIf TextBox1.Text.Contains(2 & vbCrLf) Then
TextBox1.Text = TextBox1.Text.Replace(2 & vbCrLf, "")
DataGridView1.Rows.Add()
DataGridView1.Rows(ii).Cells(0).Value = 2
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 = " الأقصر"
Label1.Text = TextBox1.Lines.Count
Button1.PerformClick()
ElseIf TextBox1.Text.Contains(1 & vbCrLf) Then
TextBox1.Text = TextBox1.Text.Replace(1 & vbCrLf, "")
Label1.Text = TextBox1.Lines.Count
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"
Button1.PerformClick()
Else
Label1.Text = TextBox1.Lines.Count
MsgBox("لا يوجد بيانات للرقم الذي تطلبه")
End If
ملاحظة : يجب اضافة سطر عند كتابة اخر رقم
