加入msgbox弹出值看看，弹出什么的时候报错？
Dim jo As JObject = JObject.Parse(hc.GetData())
If jo("errcode") = "0" Then
Dim nms() As String = {"userid","name","position","mobile","gender","email","weixinid","avatar","status"}
Dim nms1() As String = {"name","position","mobile","gender","email","weixinid","avatar","status"}
For Each jt As JToken In jo("userlist")
Dim dr As DataRow = DataTables("Users").Find("userid = '" & jt("userid").Tostring & "'")
If dr IsNot Nothing Then
For Each nm As String In nms1
dr(nm) = jt(nm)
Next
Else '遍历一旦进入else，新增行结束后，代码就不执行了，好像不在进入next，
Dim dr0 As DataRow = DataTables("Users").AddNew()
For Each nm As String In nms
msgbox(nm)
msgbox(jt(nm))
dr0(nm) = jt(nm)
msgbox(123)
Next
End If
Next
DataTables("Users").Save()
Else
MessageBox.Show(jo.ToString)
End If
加好友 
发短信
Post By：2019/5/10 15:57:00 [显示全部帖子]
