遇到蹊跷现象，调用接口获取企业微信用户列表，然后写入本地用户表，感觉人数不对，经过排查，获取到的人员是齐全的，但在遍历userlist时，一旦进入else执行新增行后就不循环了，不知何故。
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
dr0(nm) = jt(nm)
Next
End If
Next
DataTables("Users").Save()
Else
MessageBox.Show(jo.ToString)
End If
加好友 
发短信
Post By：2019/5/10 15:07:00 [只看该作者]
