Foxtable(狐表)用户栏目专家坐堂 → [求助]生成JSON问题


  共有1581人关注过本帖树形打印复制链接

主题:[求助]生成JSON问题

帅哥哟,离线,有人找我吗?
xndd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:517 积分:4319 威望:0 精华:0 注册:2014/11/26 15:23:00
[求助]生成JSON问题  发帖心情 Post By:2018/11/15 16:56:00 [只看该作者]

甜版好。

我生成的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"
}
]
}

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:517 积分:4319 威望:0 精华:0 注册:2014/11/26 15:23:00
  发帖心情 Post By:2018/11/16 8:47:00 [只看该作者]

谢谢搞定了

 回到顶部