json生成的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → json生成的问题

共有1551人关注过本帖树形打印复制链接主题：json生成的问题

rjh4078

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3358 积分：24758 威望：0 精华：0 注册：2012/3/26 21:47:00

json生成的问题 发帖心情

Post By：2017/9/10 19:31:00 [只看该作者]

With Tables("销售订单")

If .current IsNot Nothing Then

Dim jo As New JObject

jo("@number") =.current("订单号")

jo("quantity") =.current("订单数量")

jo("consignee") = .current("客户名称")

jo("address") = .current("收货地址")

jo("shipping-type")=.current("送货方式")

Output.Show(jo.ToString)

End If

End With

Dim jo As New JObject

jo("@number") =""

jo("quantity") = ""

jo("consignee") = ""

jo("address") = ""

jo("shipping-type")=""

Output.Show(jo.ToString)

红色部分能正常运行，但是用上面的就报错

---------------------------

版本:2017.8.19.1

---------------------------

代码执行出错，错误信息：

System.InvalidCastException: 无法将类型为“System.String”的对象强制转换为类型“Newtonsoft.Json.Linq.JToken”。

在 UserCode.Test()

---------------------------

确定

---------------------------

rjh4078

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3358 积分：24758 威望：0 精华：0 注册：2012/3/26 21:47:00

Post By：2017/9/10 20:20:00 [只看该作者]

我发现这样的代码都没法执行

jo("process")("press")=iif(dr("印刷否"),"yes","no")

rjh4078

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3358 积分：24758 威望：0 精华：0 注册：2012/3/26 21:47:00

Post By：2017/9/10 20:27:00 [只看该作者]

Dim xo As New XObject
xo("name") = "李云龙"
xo("age") = "36"
xo("card") = New JObject
xo("card")("bank") = "工行"
xo("card")("account") = "12345678"
Output.Show(xo.ToXML)

显示的结果为：

<xml><name>李云龙</name><age>36</age><card><bank>工行</bank><account>12345678</account></card></xml>

这里的根目录<xml>如何换成自定义的？

[此贴子已经被作者于2017/9/10 20:33:22编辑过]