主题：提取双引号内数据

看看

 

http://www.foxtable.com/mobilehelp/scr/0140.htm

 

msgbox(json)数据看一下，有可能是空值。

 

要判断是不是空值，是不是json字符串。

Dim ja
For i As Integer = 0 To ja.Count - 1
    If  ja(i)("spname").ToString() = "报销" Then
        Dim spbh As String = ja(i)("sp_num").ToString()    '判断是否存在相同的审批编号行
        Dim dr As DataRow = DataTables("微信审批表报销").Find("审批编号 = '" & spbh & "'")
        Dim r As DataRow = dr
       
        If r Is Nothing Then r = DataTables("微信审批表报销").AddNew()
       
        r("单据类型") = ja(i)("spname").ToString()   '审批名称(请假,报销,自定义审批名称)
        r("审批编号") = ja(i)("sp_num").ToString()   '审批单号
        r("申请部门")  = ja(i)("apply_org").ToString()   '申请人部门
        r("申请人") = ja(i)("apply_name").ToString()     '申请人姓名
        r("审批状态") = ja(i)("sp_status").ToString()    '审批状态:1审批中;2 已通过;3已驳回;4已取消;6通过后撤销;10已支付
        r("审批人") = ja(i)("approval_name").ToString().Replace("""","").Replace("[","").Replace("]","").Replace(vblf,"")     '审批人姓名
        r("提交时间") = ja(i)("apply_time").ToString()   '审批单提交时间
        r("附件") = ja(i)("mediaids").ToString()         '审批的附件media_id,可使用media/get获取附件
        r("报销类型") = ja(i)("expense").ToString()         '报销类型
        r("userid") = ja(i)("apply_user_id").ToString()   '审批单提交者的userid
        r("单据附件") = ja(i)("mediaids").ToString()         'unix时间
       
        Dim csr As String
        csr = ja(i)("notify_name").ToString().Replace(vblf,"")
        If  len(csr) = 2 Then
            r("抄送人") = ""
        Else
            Dim s As String
            s = ""
            For Each v As JToken In JArray.Parse(csr)
                s = s & "," & v.ToString
            Next
            r("抄送人") = s.TrimStart(",")
        End If
        hj = hj + 1
    End If
Next
''-----合计同步--------------
MessageBox.Show("同步完成,合计同步了【 " & hj & " 】条记录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)

 

具体一点你的问题，或者做个可以测试的例子测试。

1、msgbox(ja(i)("sums").ToString()) 弹出是否正确？

 

2、你的json数据是什么？贴出可以测试的代码。

1、api文档发出来看看；

 

2、mediaids保存的是图片的id号？那肯定还有api根据id号下载图片的。

对应的api说明贴出来；api对应的网址发出来。

执行下面代码，替换成自己的函数和id，看弹出什么。

 

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/material/get?access_token={0}&media_id={1}"
Dim atk As String = Functions.Execute("GetQYAccessToken") 'AccessToken
Dim mid As String = "2Tb6YJ_zqB3FXrUdJRcco6Ck6CHuL4fbLO2u7tB3_yoiEeiJS3jvlMVzpRoE3KcEi" '要获取素材的ID
Dim hc As new HttpClient(CExp(ur, atk, mid))
Dim obj = hc.GetData
msgbox(hc.ResponseContentType)

那你试试改成

 

Dim ur As String = "http://qyapi.weixin.qq.com/cgi-bin/material/get?access_token={0}&media_id={1}"

如果还报错，就是你这个代码有问题，进去加入msgbox测试。

 

Dim atk As String = Functions.Execute("GetQYAccessToken") 'AccessToken