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
jo = JObject.Parse(ret)
Dim jo2 As JObject = JObject.Parse(jo("resultObject"))
For Each ep As JToken In jo2("list")
Output.Show(ep("inboundNo"))
'Dim rr As Row=Tables("sjb").addnew()
'rr("inboundNo")=ep("inboundNo")
'rr("inboundDate")=ep("inboundDate")
Next
加好友 
发短信
Post By：2019/12/4 9:21:00 [显示全部帖子]
