代码:
Dim hc As New HttpClient("http://192.27.162.177:5000/api/App/Single/B24D43543534397B4CA")
hc.C
Dim jo As New JObject
jo("AppCode") = "234234234E1FF943B1345D647A6756765756"
jo("Where")=New JObject
jo("Where")("RIQI")="2021-01-25"
jo("Where")("JINGHAO")="11-11-11"
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
'MessageBox.Show(ret.Tostring)
For Each jt As JToken In ret
With Tables("表A")
Dim r As Row =.addnew()
r("第一列")=jt("JINGHAO").tostring
r("第二列")=jt("RIQI").tostring
End With
Next
解析出来的数据
{"code":200,"info":"响应成功","data":{"JINGHAO":"11-11-11","DANWEI":"采购部门","RIQI":"2021-01-25","SCSHIJIAN":0,"RICYE":0,"RICYOU":0,"RICSHUI":0,"YOUYA":0.5,"TAOYA":0.6,"GJYOUYA":null,"GJTAOYA":null,"HYHANSHUI":null,"KOUSHUI":null,"KSSHIJAN":null,"JSSHIJIAN":null,"YALI":null,"PAILIANG":null,"JKWENDU":null,"CKWENDU":null}}
[此贴子已经被作者于2021/2/1 10:02:15编辑过]