加入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