- 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=170313)
-- 发布时间：2021/7/21 15:26:00
-- [求助]
请问老师，透过程式生成的JArray数据，能否在回圈处理完成后，再额外增加数据进去呢？
这里我想再增加一笔数据资料进去，是否可行？
-- 发布时间：2021/7/21 15:31:00
--
增加什么数据？增加到哪里？把后面10行代码文字发上来，不要截图
-- 发布时间：2021/7/21 15:50:00
--
老师，发不了，所以只好用截图，主要是想要在回圈结束后，再增加一笔资料，我想把当前查询表的数据量添加进去，好让前端的JS能判断后端数据表是否有数据
-- 发布时间：2021/7/21 15:53:00
--
发不了是sql的原因，所以让您发后面10行：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=69632
-- 发布时间：2021/7/21 16:04:00
--
老师，我用附件方式传上，请帮我看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:2.txt |
-- 发布时间：2021/7/21 16:10:00
--
这个意思？要添加什么数据直接添加后面就行了
Dim arr As New JArray
Dim i As Integer = 0
For Each dc As DataCol In dt.DataCols
arr.Add(New JObject)
arr(i)("field") = dc.Name
arr(i)("title") = ns(i)
arr(i)("halign") = "center"
i += 1
Next
dim dt2 as datatable = 加载另外一个表格数据
For Each dc As DataCol In dt2.DataCols
arr.Add(New JObject)
arr(i)("field") = dc.Name
arr(i)("title") = ns(i)
arr(i)("halign") = "center"
i += 1
Next
-- 发布时间：2021/7/21 16:37:00
--
我想增加一笔当前数据数量的资料，放到arr这个数组里面
-- 发布时间：2021/7/21 16:41:00
--
直接在后面添加啊
Dim arr As New JArray
Dim i As Integer = 0
For Each dc As DataCol In dt.DataCols
arr.Add(New JObject)
arr(i)("field") = dc.Name
arr(i)("title") = ns(i)
arr(i)("halign") = "center"
i += 1
Next
arr.Add(New JObject)
arr(i)("field") = "xx数据数量"
-- 发布时间：2021/7/21 16:49:00
--
可以了，谢谢老师