主题：[求助]JSON数据

直接合成字符串就可以了

Dim str As String = ""
For Each Product As String In Products
    Dim count As String = DataTables("表A").compute("count(machineId)","machineid = '" & product & "' and 日期 >= '" & d1 & "' and 日期 < '" & d1.AddDays(1) & "'")
    str &= "{value:" & count & ", name:'" & product & "'},"
Next
str = str.trim(",")
msgbox(str)

1、你生成的字符串，最后是什么？

2、你在js里面获取得到字符串后，如何转换成json的？贴出代码。

如果要赋值给json，参考代码

Dim jo As New JObject
Dim ja As New JArray
jo("test") =  ja
Dim i As Integer = 0
For Each r As Row In Tables("表A").rows
    ja.Add(New JObject) '给数组添加两个对象成员
    ja(i)("value") = 123
    ja(i)("name") = "abc"
    i += 1
Next
Output.Show(jo.ToString)

发送之前，请先弹出生成的json是否正确。