程序就是自带的基本功能演示
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编辑过]
加好友 
发短信
Post By：2021/8/24 0:04:00 [只看该作者]
