JSON数据接收 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

新增了一个窗口，窗口中table插件，
新增了一命名为“接收”的按钮插件，里面代码如下：

Dim hc As new HttpClient("http://qingyun-test.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 dt As DataTable = hc.GetDataTable()

Tables("窗口1_Table1").DataSource = dt

我想实现点接收按钮，则将接收到的数据存在窗口table，请问老师，代码应如何修改？

接收的数据是json？那要自己解析然后逐个单元格赋值：http://www.foxtable.com/mobilehelp/topics/0140.htm

dim ret = hc..GetData()

Dim jo As JObject = JObject.Parse(ret )
Output.Show(jo("name"))

谢谢老师，先试试。

老师，研究了还没研究出来。

此主题相关图片如下：55555.png

以下代码是参考老师发的帮助和其他示例文档，但是实现不了，请问该如何修改？

Dim hc As new HttpClient("http://qingyun-test.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")

把返回的结果发上来，文字，不是截图

[此贴子已经被作者于2019/12/7 8:52:31编辑过]

老师，接收的代码如下，那个复制不起来，您受累在命令里执行看一下，就能看到读取到的数据了。

数据里其实包含的就 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")

先看看帮助，或者百度一下，搞清楚JSON的结构到底是怎么样的：http://www.foxtable.com/mobilehelp/topics/0140.htm

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")

主题：JSON数据接收