17-04-20, 08:17 PM
عندي تيكست بوكس به
وعندي زر وعندي داتا جريد فيو بها 3 اعمده
اريد عند الضغط علي الزر اللي امام كلمه اي دي يروح في اول عامود واللي امام كلمه نيم يروح في ثاني عامود واللي امام كلمه مويايل فون يروح في ثالث عامود
كتبت هذا الكود ولكن لاظبط معي
كود :
{"id":"10000","name":"Anosh"
{"id":"7557","name":"Fathy Kanu","mobile_phone":"+201001"
{"id":"10065","name":"Fathe Mohamed Akoty"
اريد عند الضغط علي الزر اللي امام كلمه اي دي يروح في اول عامود واللي امام كلمه نيم يروح في ثاني عامود واللي امام كلمه مويايل فون يروح في ثالث عامود
كتبت هذا الكود ولكن لاظبط معي
كود :
Dim json As String = TextBox1.Text
Dim Name = From t As String In json.Split(vbNewLine) Select _
System.Text.RegularExpressions.Regex.Match(t, "id"":""(.+)"",""").Groups(1).Value
Dim id = From t As String In json.Split(vbNewLine) Select _
System.Text.RegularExpressions.Regex.Match(t, "name"":""(.+)"",""").Groups(1).Value
Dim id1 = From t As String In json.Split(vbNewLine) Select _
System.Text.RegularExpressions.Regex.Match(t, """mobile_phone"":""(.+)""").Groups(1).Value
For i As Integer = 0 To Name.Count - 1
DataGridView1.Rows.Add(id(i), Name(i), id1(i))
Next
Dim RowsCount As Integer = 0
If DataGridView1.AllowUserToAddRows = True Then
RowsCount = DataGridView1.Rows.Count - 2
Else
RowsCount = DataGridView1.Rows.Count - 1
End If
For i = 0 To RowsCount
ListBox3.Items.Add(DataGridView1.Rows(i).Cells(0).Value)
Next