以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  JSON整数  (http://foxtable.net/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
--  
可以,谢谢!