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

(24-10-19, 08:03 PM)AbdoDabak كتب : طيب عطيني الكود اللي تستخدمه لعرض ال ايدي من التيكست الى الليست

---

عفوا من التيكست الى الداتا

ده كود لعرض ال ايدي من التيكست الى الليست

كود :

 Dim kk As String = ""
           If TextBox1.Text <> Nothing Then
               Dim ListLine As New List(Of String)(TextBox1.Lines)
               For Each itm As String In ListLine
                   ListBox1.Items.Add(itm)
               Next
           End If

و ده كود عرض الداتا 

كود :

 Dim ii As Integer = DataGridView1.Rows.Count - 1
           If Val(TextBox1.Text) = 100004441516054 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.Select()
           ElseIf Val(TextBox1.Text) = 100008040420441 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.Select()
           ElseIf TextBox1.Text = 100004441516054 & vbCrLf & 100008040420441 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‎‏"
               DataGridView1.Rows.Add()
               DataGridView1.Rows(ii + 1).Cells(0).Value = Val(TextBox1.Text)
               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.Select()
           ElseIf TextBox1.Text = 100008040420441 & vbCrLf & 100004441516054 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‎‏"
               DataGridView1.Rows.Add()
               DataGridView1.Rows(ii + 1).Cells(0).Value = Val(TextBox1.Text)
               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.Select()
           
           Else