- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 老师好，自定义函数的问题 -已经解决，谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110446)
-- 发布时间：2017/12/3 14:02:00
-- 老师好，自定义函数的问题 -已经解决，谢谢
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编辑过]
-- 发布时间：2017/12/3 23:41:00
--
Dim xyjfbh as String = Args(0)