主题：[求助]用微信发送消息！

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token={0}"
Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
jo("touser") = "laoliu|zhangsan"
jo("msgtype") = "text"
jo("agentid") = 9
jo("text") = New JObject
jo("text")("content") = "您好,这是测试信息"
hc.Content = jo.ToString
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
    MessageBox.show("消息发送成功!")
Else
    MessageBox.show(jo.ToString)
End If

jo("text")("content") = Cstr(dr("单号"))

还是出现如下提示哦！类型还是不对啊！

测试没有问题，所有dr赋值的地方都加上Cstr

可以了！原来的userid列没有填微信号进去！所以报错！谢啦！