[求助]我到现在都有点迷糊 jo和jt - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]我到现在都有点迷糊 jo和jt

共有3719人关注过本帖树形打印复制链接主题：[求助]我到现在都有点迷糊 jo和jt

18523982317

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：857 积分：6156 威望：0 精华：0 注册：2015/12/24 13:02:00

[求助]我到现在都有点迷糊 jo和jt 发帖心情

Post By：2017/3/20 21:53:00 [只看该作者]

Dim r As Row = CurrentTable.Current

Dim jo As New JObject

jo("userid") = r("userid")

jo("name") = r("name")

jo("department") = r("department")

jo("mobile")= r("mobile")

MessageBox.Show(jo.ToString)

上面这段代码为什么错了？？求解

帮助里的代码：

但是有一个很奇怪的现象，直接将JSON成员和字符串组合会出错，例如以下代码是无法执行的的：

Dim json As String = "{'name':'李云龙','age':'36'}"
Dim jo As JObject = JObject.Parse(json)
Output.Show("姓名:" & jo("name") & " 年龄:" & jo("age"))

必须改为:

Dim json As String = "{'name':'李云龙','age':'36'}"
Dim jo As JObject = JObject.Parse(json)
Output.Show("姓名:" & jo("name").ToString() & " 年龄:" & jo("age").ToString())

那这种情况我要怎么做？我用jo("userid").ToString()= r("userid") 肯定也不对啊

[此贴子已经被作者于2017/3/20 21:59:43编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/3/20 22:15:00 [只看该作者]

你的问题和帮助完全是两回事

If CurrentTable.Current IsNot Nothing

Dim r As Row = CurrentTable.Current

Dim jo As New JObject

jo("userid") = r("userid")

jo("name") = r("name")

jo("department") = r("department")

jo("mobile")= r("mobile")

MessageBox.Show(jo.ToString)

End If

18523982317

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：857 积分：6156 威望：0 精华：0 注册：2015/12/24 13:02:00

Post By：2017/3/21 8:07:00 [只看该作者]

此主题相关图片如下：qq图片20170321080219.png

蓝大大，jo不能直接等于row的字符串。。。。。

nothing

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：517 积分：3383 威望：0 精华：0 注册：2013/1/3 17:08:00

Post By：2017/3/21 8:16:00 [只看该作者]

搞个变量过渡一下

dim userid as string =r("userid")

jo("userid") = userid

nothing

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：517 积分：3383 威望：0 精华：0 注册：2013/1/3 17:08:00

Post By：2017/3/21 8:19:00 [只看该作者]

我也搞不懂为什么，都是字符型的，直接用r("列")为什么不行，要绕一下，当时碰到这个问题，尝试了上面的方法，可以

[此贴子已经被作者于2017/3/21 8:20:23编辑过]

18523982317

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：857 积分：6156 威望：0 精华：0 注册：2015/12/24 13:02:00

Post By：2017/3/21 8:25:00 [只看该作者]

过度我也试了，太麻烦了。。。我所以想问问到底有木有简便方法。。。

18523982317

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：857 积分：6156 威望：0 精华：0 注册：2015/12/24 13:02:00

Post By：2017/3/21 8:37:00 [只看该作者]

Dim userid As String

Dim name As String

Dim department As String

Dim mobile As String

DataTables("users").LoadFilter = "shifolizhi = 0"

DataTables("users").Load

For Each r As Row In Tables("users").Rows

Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/user/get?access_token={0}&userid={1}"

ul= CExp(ul,Functions.Execute("GetQYAccessToken"),r("name"))

Dim hc As new HttpClient(ul)

Dim jo As JObject = JObject.Parse(hc.GetData)

If jo("errcode") = "0" Then

With Tables("错误日志")

.Current("时间") = Date.Now

.Current("表名") = "微信成员"

.Current("类型") = "提醒"

.Current("记录") = "成员" & r("name") & "已存在,所以不用添加"

End With

Else

userid = r("userid")

name = r("name")

department = r("department")

mobile = r("mobile")

Dim ul1 As String = "https://qyapi.weixin.qq.com/cgi-bin/user/create?access_token={0}"

Dim hc1 As New HttpClient(CExp(ul1,Functions.Execute("GetQYAccessToken")))

Dim jo1 As New JObject

jo1("userid") = userid

jo1("name") = name

jo1("department") = department

jo1("mobile") = mobile

hc1.Content = Jo1.ToString

jo1 = JObject.Parse(hc1.GetData)

If jo1("errcode") = "0" Then

With Tables("错误日志")

.Current("时间") = Date.Now

.Current("表名") = "微信成员"

.Current("类型") = "成功"

.Current("记录") = "成员" & r("name") & "添加成功"

End With

Else

With Tables("错误日志")

.Current("时间") = Date.Now

.Current("表名") = "微信成员"

.Current("类型") = "错误"

.Current("记录") = "成员" & r("name") & "添加失败"

End With

End If

我就像用foreach 的方式来批量更新成员，不想用异步更新，但是报错。。。求解？

有点色

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/21 9:57:00 [只看该作者]

以下是引用18523982317在2017/3/21 8:25:00的发言：
过度我也试了，太麻烦了。。。我所以想问问到底有木有简便方法。。。

Dim r As Row = CurrentTable.Current
Dim jo As New JObject
jo("Name") = "张三"
jo("Group") = cstr(r("第一列"))
jo("Type") = 2
jo("Default") = False
Output.Show(jo.ToString)

有点色

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/21 10:00:00 [只看该作者]

以下是引用18523982317在2017/3/21 8:37:00的发言：

我就像用foreach 的方式来批量更新成员，不想用异步更新，但是报错。。。求解？

报什么错？你加入msgbox定位一下错误位置。

18523982317

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：857 积分：6156 威望：0 精华：0 注册：2015/12/24 13:02:00

Post By：2017/3/21 10:47:00 [只看该作者]

色大大谢谢添加成功了。。。

DataTables("users").LoadFilter = "shifolizhi = 0"

DataTables("users").Load

For Each r As Row In Tables("users").Rows

Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/user/get?access_token={0}&userid={1}"

ul= CExp(ul,Functions.Execute("GetQYAccessToken"),r("userid"))

Dim hc As new HttpClient(ul)

Dim jo As JObject = JObject.Parse(hc.GetData)

If jo("errcode") = "0" Then

With Tables("错误日志")

.AddNew

.Current("时间") = Date.Now

.Current("表名") = "微信成员"

.Current("类型") = "提醒"

.Current("记录") = "成员" & r("name") & "已存在,所以不用添加"

End With

Else

Dim ul1 As String = "https://qyapi.weixin.qq.com/cgi-bin/user/create?access_token={0}"

Dim hc1 As New HttpClient(CExp(ul1,Functions.Execute("GetQYAccessToken")))

Dim jo1 As New JObject

jo1("userid") = cstr(r("userid"))

jo1("name") = cstr(r("name"))

jo1("department") = cstr(r("department"))

jo1("mobile") = cstr(r("mobile"))

hc1.Content = Jo1.ToString

jo1 = JObject.Parse(hc1.GetData)

If jo1("errcode") = "0" Then

With Tables("错误日志")

.AddNew

.Current("时间") = Date.Now

.Current("表名") = "微信成员"

.Current("类型") = "成功"

.Current("记录") = "成员" & r("name") & "添加成功"

End With

Else

With Tables("错误日志")

.AddNew

.Current("时间") = Date.Now

.Current("表名") = "微信成员"

.Current("类型") = "错误"

.Current("记录") = "成员" & r("name") & "添加失败"

End With

End If

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：[求助]我到现在都有点迷糊 jo和jt