- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 接口返回的json格式数据 列表table控件不显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159733)
-- 发布时间：2021/1/6 13:55:00
-- 接口返回的json格式数据 列表table控件不显示
有个问题不知道怎么原因，麻烦大家帮帮忙。
接口数据：
列表会增加一行空白但是结果不显示
列表读取数据并处理代码：
-- 发布时间：2021/1/6 14:10:00
--
请把完整代码文字发上来，不要截图，方便别人修改
-- 发布时间：2021/1/6 14:20:00
--
Dim url As String="http://127.0.0.1?v=sale"
Dim hc As new HttpClient(url)
Dim str As String
str=hc.GetData()
Dim jo As jarray=jarray.parse(str)
\'MessageBox.Show(jo.Tostring)
For Each jt As Jtoken In jo
With Tables("Sale_Sale")
Dim r As Row=.addnew()
For Each c As Col In .Cols
r(c.name)=jt(c.name)
Next
End With
Next
接口返回json格式的结果：
[ { "公司名称": "软件开发公司", "订单编号": "SSDD202001050001", "客户类型": "系统内", "客户ID": "2", "收货地址ID": "0", "用户名称": "超级管理员", "创建时间": "2020-01-05", "订单来源": "" }, { "公司名称": "test公司1", "订单编号": "SSDD202001050002", "客户类型": "系统外", "客户ID": "2", "收货地址ID": "0", "用户名称": "张三", "创建时间": "2020-01-04", "订单来源": "" } ]
-- 发布时间：2021/1/6 14:24:00
--
一楼截图的表格是第一列，第二列这种列名，json里是公司名称，订单编号这种完全对应不上
For Each jt As Jtoken In jo
With Tables("Sale_Sale")
Dim r As Row=.addnew()
r("第一列") = jt("公司名称").tostring
r("第二列") = jt("订单编号").tostring End With
Next
-- 发布时间：2021/1/6 14:45:00
--
谢谢啦。
这么修改之后确实可以显示数据了，
我还想问一下 那个表格列的标题能修改吗？ 不想让显示 第一列， 第二列，第三列 ，想让显示成 公司名称，订单编号， 创建时间 这种的
-- 发布时间：2021/1/6 14:51:00
--
参考：http://www.foxtable.com/webhelp/topics/0036.htm
很基础的知识，建议还是先看看帮助吧，基础没打好只会更浪费时间