以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]生成JSON问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127514)
--  作者：xndd
--  发布时间：2018/11/15 16:56:00
--  [求助]生成JSON问题
甜版好。

我生成的JSON有一个名字"sjxs"，怎么去掉这个“名字”啊？echarts只要去掉这个名字就能正常显示了。


代码如下：

Dim cmd1 As new SQLCommand
cmd1.CommandText = "S ELECT CONVERT(VARCHAR(10),A.ORDER_DATE,120) AS [订单日期], " & _
" Convert(decimal(18,2),SUM(A.AMT_UNINCLUDE_TAX_BC)) AS [本币金额], " & _
" SUM(A.TAX_BC) AS [本币税额] " & _
" F ROM dbo.SALES_ORDER_DOC A " & _
" W HERE A.DOC_NO not LIKE \'C%\' and A.ApproveStatus = \'Y\' AND CONVERT(VARCHAR(10),A.ORDER_DATE,120) BETWEEN \'2018-11-01\' AND \'2018-11-31\' " & _
" AND A.Owner_Dept = \'B6D244CE-DA2C-4EC7-D861-14265D651545\' " & _
" GROUP BY A.ORDER_DATE "
cmd1.C
Dim dt1 = cmd1.ExecuteReader
Dim Arys1 As List(Of String())
Arys1 = dt1.GetValues("订单日期|本币金额|本币税额","","订单日期")
Dim salesdata As New JObject
Dim xmlb As New JArray
Dim i As Integer
salesdata("sjxs") = xmlb

For Each Ary1 As String() In Arys1
    xmlb.Add(New Jobject)
    xmlb(i)("mydays") = Ary1(0).ToString
    xmlb(i)("num") = Ary1(1).ToString
    i += 1
Next

FileSys.WriteAllText("H:\\web\\js\\echarts\\xsty\\data5.json",salesdata.ToString,False,Encoding.UTF8)


{
"sjxs":[
{
"mydays":"2018-11-01",
"num":"320706.08"
},
{
"mydays":"2018-11-02",
"num":"93883.65"
},
{
"mydays":"2018-11-05",
"num":"708838.56"
},
{
"mydays":"2018-11-06",
"num":"134164.00"
},
{
"mydays":"2018-11-07",
"num":"1174899.81"
},
{
"mydays":"2018-11-08",
"num":"2945095.76"
},
{
"mydays":"2018-11-09",
"num":"2688613.60"
},
{
"mydays":"2018-11-10",
"num":"31800.00"
},
{
"mydays":"2018-11-12",
"num":"263344.68"
},
{
"mydays":"2018-11-13",
"num":"166506.01"
},
{
"mydays":"2018-11-14",
"num":"820982.39"
},
{
"mydays":"2018-11-15",
"num":"535069.60"
}
]
}
--  作者：有点甜
--  发布时间：2018/11/15 20:54:00
--  

参考

 

Dim ja As New JArray
ja.Add(New JObject) \'给数组添加两个对象成员
ja.Add(New JObject)
ja(0)("name") = "李云龙"
ja(0)("age") = 36
ja(1)("name") = "黄晓明"
ja(1)("age") = 26
output.show(ja.Tostring)
--  作者：xndd
--  发布时间：2018/11/16 8:47:00
--  
谢谢搞定了