以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  JSON整数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171255)
--  作者：wei0769
--  发布时间：2021/8/24 0:04:00
--  JSON整数
程序就是自带的基本功能演示

Dim jo As New JObject
Dim ja As New JArray
Dim n As Integer = Tables("订单").Rows.Count
Dim i As Integer
For i = 0 To n-1
ja.add(new jobject)
ja(i)("name") = Tables("订单").rows(I)("产品").Tostring
ja(i)("数量") =val(Tables("订单").rows(I)("数量"))
jo("staff") =  ja \'
Next
Output.Show(ja.Tostring)


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20210824000145.png
图片点击可在新窗口打开查看



改成

Dim jo As New JObject
Dim ja As New JArray
Dim n As Integer = Tables("订单").Rows.Count
Dim i As Integer
For i = 0 To n-1
ja.add(new jobject)
ja(i)("产品") = cstr(Tables("订单").rows(I)("产品"))
ja(i)("数量") =cint(Tables("订单").rows(I)("数量"))
jo("staff") =  ja \'
Next
Output.Show(ja.Tostring)

[此贴子已经被作者于2021/8/24 9:59:12编辑过]
--  作者：有点蓝
--  发布时间：2021/8/24 8:44:00
--  
ja(i)("数量") =cint(Tables("订单").rows(I)("数量"))
--  作者：wei0769
--  发布时间：2021/8/24 9:42:00
--  
可以,谢谢!