Dim xyjfbh String = Args(0)
Dim fsnr As String '定义发送内容
If _xyjfbh Is Nothing Then
MessageBox.show("没有生成学员课程缴费编号,无法推送服务号消息!")
Else
Dim jfr As DataRow =DataTables("报名缴费").SQLFind("缴费编号 = '" & xyjfbh & "'")
If jfr IsNot Nothing Then
Dim wxzds(6) As String
wxzds(0)= "尊敬的逸飞书画学员家长."
wxzds(1)="姓名:" & jfr("学员姓名") & "学员编号:" & jfr("学员编号")
wxzds(2)=xyjfbh
wxzds(3)=jfr("所报学科")
wxzds(4)=jfr("上课时间")
wxzds(5)="逸飞书画" & jfr("所属分校") & "校区"
wxzds(6)="本课程收费" & jfr("实缴金额") & "元,共" & jfr("应上课时") & "课时.逸飞书画-书画教育的引领者."
For Each wxzd As String In wxzds
If fsnr ="" Then
fsnr = wxzd
Else
fsnr = fsnr & "|" & wxzd
End If
Next
'
Dim dr As DataRow
dr = DataTables("模板消息").SQLFind("标题= '报名成功提醒'")
If dr IsNot Nothing Then
Dim r3 As Row = Tables("消息待发表").AddNew
r3("模板ID") = dr("模板id")
r3("字段内容") =dr("字段内容")
r3("消息内容") = fsnr
r3("openid") = dr("openid")
r3("插入时间") = Date.Now
r3("发送人")=_username
Tables("消息待发表").save
MessageBox.show("信息已经上传服务器成功,稍候完成推送!")
End If
End If
End If
此主题相关图片如下：11.png
[此贴子已经被作者于2017/12/3 14:05:30编辑过]
加好友 
发短信
Post By：2017/12/3 14:02:00 [只看该作者]
