报错代码用已用红色部分标注。想根据微信发信人的微信号,获取对应的学员信息。
Dim PR1 As DataRow = DataTables("学员管理_学员信息表").Find("微信号 = '" & dr1("FromUserName") & "'")
so("ToUserName") = xo("FromUserName")
so("FromUserName") = xo("ToUserName")
so("CreateTime") = (Date.Now - st).TotalSeconds()
so("MsgType")= "text"
so("Content") = "您好 ,'" & PR1("姓名") & "',今天是" & Format(Date.Today,"yyyy年MM月dd日")
e.WriteString(so.ToXML)
报错代码如下
无法将类型为“System.String”的对象强制转换为类型“Newtonsoft.Json.Linq.JToken”。。
[此贴子已经被作者于2021/9/27 11:02:12编辑过]