以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]我需要把一个表的数据保存到全局代码,当打开某个临时表时,将数据赋值到临时表内?该怎么写?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133113)

--  作者:zto001
--  发布时间:2019/4/7 13:38:00
--  [求助]我需要把一个表的数据保存到全局代码,当打开某个临时表时,将数据赋值到临时表内?该怎么写?
[求助]我需要把一个表的数据保存到全局代码,当打开某个临时表时,将数据赋值到临时表内?该怎么写?

想过这样写,但是明显不行
Dim jo As New JObject
Dim ja As New JArray
jo("staff") =  ja \'
ja.Add(New JObject) \'给数组添加两个对象成员
ja.Add(New JObject) 
ja(0)("name") = "李云龙"
ja(0)("tag") = 36
ja(1)("name") = "黄晓明"
ja(1)("tag") = 26
\'Output.Show(jo.ToString)


Dim json As String = jo.ToString
Dim jo0 As JObject = JObject.Parse(json)
Output.Show(jo("name"))
Output.Show(jo("tag"))

--  作者:有点甜
--  发布时间:2019/4/7 14:56:00
--  

没有必要保存成json吧?你直接引用你表里面的数据即可啊。

 

具体问题,上传实例说明。


--  作者:zto001
--  发布时间:2019/4/7 17:24:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.zip

这样
--  作者:有点甜
--  发布时间:2019/4/7 18:26:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table