以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  josn同步数据库问题,急  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183201)

--  作者:zjjlngj
--  发布时间:2022/10/28 10:03:00
--  josn同步数据库问题,急


For Each jt As JToken In jaResult
    
    Dim dr As Row = tblDep.AddNew()
    
    dr("userid") = "221936626720436295"
    dr("group_id") = jt("group_id").ToString
    dr("label") = jt("label").ToString
    dr("field_name") = jt("field_name").ToString
    dr("value") = jt("value").ToString
    dr("field_code") = jt("field_code").ToString
Next

代码如上,jt里大部分是5项,一些是3项,循环新增的时候怎样判断没有的项并跳过,让它正确执行

--  作者:有点蓝
--  发布时间:2022/10/28 10:14:00
--  
json数据发上来看看
--  作者:zjjlngj
--  发布时间:2022/10/28 10:20:00
--  

{

"errcode":0,

"result":[

{

"partner":false,

"field_list":[

{

"group_id":"sys00",

"field_code":"sys00-mainDept",

"label":"信息部",

"value":"信息部",

"field_name":"主部门"

},

{

"group_id":"sys00",

"field_code":"sys00-reportManagerId",

"field_name":"直属主管Id"

},

{

"group_id":"sys00",

"field_code":"集团短号",

"field_name":"集团短号"

},

{

"group_id":"custom5b1358dd4945478ab8d010e749e2dfe7",

"field_code":"94776564-3c78-4a92-a966-f0ee5165f9d2",

"field_name":"字段测试"

}

],

"userid":"221936626720436295"

}

],

"success":true,

"errmsg":"ok",

"request_id":"15ss4o27kqqxw"

}


--  作者:有点蓝
--  发布时间:2022/10/28 10:22:00
--  
if jt("label") isnot nothing then
dr("label") = jt("label").ToString
endif

--  作者:zjjlngj
--  发布时间:2022/10/28 10:30:00
--  
这样处理我知道啊,jt为空的项不确定啊
--  作者:zjjlngj
--  发布时间:2022/10/28 10:32:00
--  
有没自动判定的方法
--  作者:有点蓝
--  发布时间:2022/10/28 10:35:00
--  
没有,全部都加上判断就行了
--  作者:zjjlngj
--  发布时间:2022/10/28 10:39:00
--  
麻烦问下碰到不是5项的自动跳出怎么处理
--  作者:zjjlngj
--  发布时间:2022/10/28 10:40:00
--  
只插入5项的
--  作者:有点蓝
--  发布时间:2022/10/28 10:57:00
--  
For Each jt As JToken In jaResult
if jt("label") is nothing then continue for
Dim dr As Row = tblDep.AddNew()