以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于企业微信推送  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186423)

--  作者:hnguang
--  发布时间:2023/4/28 10:08:00
--  关于企业微信推送
我用循环的方式发送工资条信息,为什么发送第一条后就提示出错

For Each cr As DataRow In dt.datarows
    
    Dim gh = CStr(cr("工號").ToString)
    Dim userid = CStr(cr("userid").ToString) 
    jo("touser") = CStr(userid)
    jo("agentid") = "1000009"
    jo("msgtype") = "textcard"
    jo("textcard") = New JObject
    jo("textcard")("title") = "工资条信息"
    Dim _strwhere = "月份:" & _month & "工资已发放,请查收!"
    \'Dim fy As WinForm.TextBox = Cstr(_strwhere)
    jo("textcard")("description") = CStr(_strwhere)
    Dim yyzy As String = "http://weixin.yselec.hk:99/gzt.htm?yf=" & _month & "&gh=" & gh
    jo("textcard")("url") = yyzy
    hc.Content = jo.ToString
    jo = JObject.Parse(hc.GetData)
    
Next


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20230428100540.jpg
图片点击可在新窗口打开查看


--  作者:hnguang
--  发布时间:2023/4/28 10:09:00
--  
可以了
--  作者:有点蓝
--  发布时间:2023/4/28 10:10:00
--  
提交的地址没有返回任何内容

jo = JObject.Parse(hc.GetData)
改为
hc.GetData