以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]我到现在都有点迷糊 jo和jt  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97908)
--  作者：18523982317
--  发布时间：2017/3/20 21:53:00
--  [求助]我到现在都有点迷糊 jo和jt
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编辑过]
--  作者：有点蓝
--  发布时间：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
--  发布时间：2017/3/21 8:07:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170321080219.png
图片点击可在新窗口打开查看

蓝大大，jo不能直接等于row的字符串。。。。。
--  作者：nothing
--  发布时间：2017/3/21 8:16:00
--  
搞个变量过渡一下
dim userid as string =r("userid")
jo("userid") = userid
--  作者：nothing
--  发布时间：2017/3/21 8:19:00
--  
我也搞不懂为什么，都是字符型的，直接用r("列")为什么不行，要绕一下，当时碰到这个问题，尝试了上面的方法，可以
[此贴子已经被作者于2017/3/21 8:20:23编辑过]
--  作者：18523982317
--  发布时间：2017/3/21 8:25:00
--  
过度我也试了，太麻烦了。。。我所以想问问到底有木有简便方法。。。
--  作者：18523982317
--  发布时间：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
    End If
Next

我就像用foreach 的方式来批量更新成员，不想用异步更新，但是报错。。。求解？
--  作者：有点色
--  发布时间：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)
--  作者：有点色
--  发布时间：2017/3/21 10:00:00
--  
以下是引用18523982317在2017/3/21 8:37:00的发言：
 
我就像用foreach 的方式来批量更新成员，不想用异步更新，但是报错。。。求解？

 

报什么错？你加入msgbox定位一下错误位置。
--  作者：18523982317
--  发布时间：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
    End If
Next