现在单子上的二维码扫出来的字符是标准的JSON，很好调用。{"D":"DL0859020090409","S":"S-00008590","W":"1400DPDP","I":[{"I":"23928550","N":"480.0","P":"20200904"},{"I":"23928552","N":"480.0","P":"20200904"},{"I":"24510382","N":"96.0","P":"20200904"},{"I":"24513058","N":"96.0","P":"20200904"}]}
Dim jsonStr=e.Form.Controls("TextBox1").value
Dim jo As JObject = JObject.Parse(jsonStr)
e.Form.Controls("Label1").text=jo("W").Tostring
Dim ja As JArray = jo("I")
Dim msg0 As String=""
Dim msg1 As String=""
For i As Integer = 0 To ja.Count - 1
Dim jo2 As JObject =ja(i)
msg0 = jo2("I").Tostring
msg1 = jo2("N").Tostring
Tables("test_Table1").AddNew()
Dim r As Row = Tables("test_Table1").Current
r("第一列") = msg0
r("第二列") = msg1
Next
加好友 
发短信
Post By：2020/9/10 15:06:00 [只看该作者]
