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

JSON内容为：

{"dowhat":"ycldnhq","tablename":"ycldd","rownumber":"YCLDDTM:YCLDD-2301170000"}

请教 json解析

问题1：

输入进foxtable 的字符串是以上内容，引号都为双引号，这个能否直接解析

Dim jo_in As JObject = JObject.Parse(str)
Dim Dowhat As String = jo_in("dowhat").ToString()
Dim tablename As String = jo_in("tablename").ToString()
Dim rownumber As String = jo_in("rownumber").ToString()

这种方式报错。

问题2：

如果输出一个JSON

能否全部都用双引号？

[此贴子已经被作者于2023/1/17 15:14:38编辑过]

提示什么错误？请贴出完整代码。

Dim str As String = args(0)

MessageBox.Show(Str)
Dim jo_in As JObject = JObject.Parse(str)
Dim Dowhat As String = jo_in("dowhat").ToString()
Dim tablename As String = jo_in("tablename").ToString()
Dim rownumber As String = jo_in("rownumber").ToString()

文本为 {"dowhat":"ycldnhq","tablename":"ycldd","rownumber":"YCLDDTM:YCLDD-2301170000"}

代码如上

图片请看下

此主题相关图片如下：捕获1.jpg

此主题相关图片如下：捕获2.jpg

此主题相关图片如下：捕获3.jpg

我把双引号强制转换为单引号再解析也报同样的错误！

[此贴子已经被作者于2023/1/17 15:32:22编辑过]

我测试没有问题啊，sqlweb函数只有这几句代码？

Dim str As String = args(0)

str = str.Replace("""","'")
MessageBox.Show(str)

Dim jo_in As JObject = JObject.Parse(str)
Dim Dowhat As String = jo_in("dowhat").ToString()
Dim tablename As String = jo_in("tablename").ToString()
Dim rownumber As String = jo_in("rownumber").ToString()

If Dowhat = "ycldnhq" Then

    Dim drf As DataRow = DataTables("YW_原材料订单").SQLFind("二维码 = '" & rownumber & "'")
    Dim rowguid As String
    If drf IsNot Nothing Then
        rowguid = drf("guid")

        Dim jo As New JObject
        Dim ja As New JArray
        jo("主表guid") = drf("guid")
        jo("供应商") = drf("供应商")
        jo("计划纳入日期") = drf("计划纳入日期")
        jo("备注") = drf("备注")
        jo("明细") = ja

        Dim drs As List(of DataRow)
        drs= DataTables("YW_原材料订单明细").SQLSelect("主表guid = '" & rowguid & "'")
        For i As Integer = 0 To drs.Count -1
            ja.Add(New JObject) '给数组添加两个对象成员
            ja(i)("guid") = drs(i)("guid")
            ja(i)("产品品番") = drs(i)("产品品番")
            ja(i)("收容数") = drs(i)("收容数")
            ja(i)("单位") = drs(i)("单位")
            ja(i)("计划纳入数量") = drs(i)("计划纳入数量")
            ja(i)("计划纳入总数量") = drs(i)("计划纳入总数量")
        Next
        MessageBox.Show(jo.ToString)
        Return jo.ToString
    End If
End If

所以早就让您把完整代码发上来咯！

jo("主表guid") = drf("guid")

改为

jo("主表guid") = drf("guid").tostring

或者

jo("主表guid") = cstr(drf("guid"))

其它地方也一样的改

主题：josn解析