以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  自生成表数据源  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=187474)
--  作者：lgzhao
--  发布时间：2023/7/20 19:18:00
--  自生成表数据源
您好，

后端api可以返回一个JSON对象，我希望把它转换成一个Datatable的基类对象，
请问能否用这个对象来作为foxtable的主窗口内的table的数据源。

能的话怎么做呢？

谢谢
--  作者：有点蓝
--  发布时间：2023/7/20 20:12:00
--  
可以解析json后给table赋值，比如

Dim json As String = "[{\'name\':\'李云龙\',\'age\':\'36\'},{\'name\':\'黄晓明\',\'age\':\'28\'}]"
Dim ja As JArray = Jarray.Parse(json)
For i As Integer = 0 To ja.Count - 1
dim r as row = tables("表A").addnew
r("姓名") = ja(i)("name").ToString()
r("年龄") = ja(i)("age").ToString()
Next
--  作者：有点蓝
--  发布时间：2023/7/20 20:14:00
--  
如果已经获取datatable，设置数据源即可

dim dt as system.data.datatable = xxxx
Tables("窗口1_Table1").DataSource = dt
--  作者：lgzhao
--  发布时间：2023/7/21 4:47:00
--  
好的。非常感谢。