老师，接收的代码如下，那个复制不起来，您受累在命令里执行看一下，就能看到读取到的数据了。
数据里其实包含的就 inboundNo,,inboundDate,goodsSupplierNo,numbers,goodsNo,goodsCount,goodsPrice,goodsMoney,orderValue 而我的数据库下的SJB表里也是包含相同的字段，我想到接收的数据存入到数据表里
Dim hc As new HttpClient("http://qingyun.feiyang56.cn/fyhd//ifs/inbound_queryDetailList_resultAction.action") Dim jo As New JObject
jo("userName") = "澜珊商贸"
jo("userPass") = "123456"
jo("startDate") = "2019-12-02 00:00:00"
jo("endDate") = "2019-12-02 23:59:59"
jo("orderNo") = ""
jo("currentPage") = "1"
jo("pageSize") = "100"
Dim orderJson As String = jo.tostring()
msgbox(orderJson )
hc.FormData.Add("param",orderJson )
Dim ret = hc.GetData
msgbox(ret)
------------------------------
以下为做的读取后存入语句，语句不能实现
Dim hc As new HttpClient("http://qingyun.feiyang56.cn/fyhd//ifs/inbound_queryDetailList_resultAction.action")
Dim jo As New JObject
jo("userName") = "澜珊商贸"
jo("userPass") = "123456"
jo("startDate") = "2019-12-02 00:00:00"
jo("endDate") = "2019-12-02 23:59:59"
jo("orderNo") = ""
jo("currentPage") = "1"
jo("pageSize") = "100"
Dim orderJson As String =CompressJson(jo)
msgbox(orderJson )
hc.FormData.Add("param",orderJson )
Dim ret = hc.GetData
For Each ep As JToken In JArray.Parse(ret)
Dim rr As Row=Tables("sjb").addnew()
rr("inboundNo")=ep("inboundNo")
rr("inboundDate")=ep("inboundDate")
Next
加好友 
发短信
Post By：2019/12/4 9:06:00 [显示全部帖子]
此主题相关图片如下：55555.png