Foxtable(狐表)用户栏目专家坐堂 → 生成 XML 代码报错、再求教


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

主题:生成 XML 代码报错、再求教

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107783 积分:548260 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/27 20:39:00 [显示全部帖子]

jo("request")("payload")("param")("data_request")("datainfo")("data")("row")("detail")("row")= ja2  ‘ja2是一个数组,我也不知道怎么改,因为不知道您要什么逻辑
jo("request")("payload")("param")("data_request")("datainfo")("data")("row")("detail")("row")("fieldz") =  New JObject   ‘就在这里报错


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107783 积分:548260 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/28 9:34:00 [显示全部帖子]

jo("request")("payload")("param")("data_request")("datainfo")("data")("row")("detail")= New JObject
jo("request")("payload")("param")("data_request")("datainfo")("data")("row")("detail")("@name")="PURCHASE_ARRIVAL_D"
jo("request")("payload")("param")("data_request")("datainfo")("data")("row")("detail")("row")= ja2
For Each dr1 As Row In Tables(e.Form.name & "_Table1").GetCheckedRows
    Dim so2 As New JObject
    so2("@seq")= Cstr(dr1("SequenceNumber"))     '供应商的送货单行号
so2("fieldz") = ja3
    ja2.add(so2)
    For i3 As Integer = 1 To 1    ’这里有故意取一个字段来看还是报错,不明白为什么!
        Dim so3 As New JObject
        Select Case i3
            Case 1
                so3("@name")="SequenceNumber"     '供应商的送货单行号
                so3("@type")="numeric"
                so3("#text")= dr1("SequenceNumber")
            Case 2

 回到顶部