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()
---------------------------
确定
---------------------------
加好友 
发短信
Post By：2017/9/10 19:31:00 [只看该作者]
