Foxtable(狐表)用户栏目专家坐堂 → 自生成表数据源


  共有1446人关注过本帖树形打印复制链接

主题:自生成表数据源

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107323 积分:545876 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107323 积分:545876 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/7/20 20:14:00 [显示全部帖子]

如果已经获取datatable,设置数据源即可

dim dt as system.data.datatable = xxxx
Tables("窗口1_Table1").DataSource = dt

 回到顶部