cmd2.CommandText = "select * From 人员编号 where 编号电话= '" & e.Values("被访人电话") & "'"
dt2 = cmd2.ExecuteReader(True)
If dt2.DataRows.Count > 0 Then
bfrxm = dt2.dataRows(0)("姓名")
bfrid = dt2.dataRows(0)("USERID")
‘--------------
'生成来访审批流程放在这里即可，没有必要分几个页面
Dim swxjm As String
swxjm = "DunZen"
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/oa/applyevent?access_token={0}"
Dim hc As new HttpClient(Cexp("accesstoken")）
Dim st As New Date(1970,1,1,8,0,0)
Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds())
Dim jo As New JObject
Dim ja2 As New JArray
jo("creator_userid") = xjid '请老师将上面的变量写到这里
……
ja2(0)("id")="Text-1666957297708"
ja2(0)("value")=New JObject
ja2(0)("value")("text")=e.values("来访人姓名") '请老师将上面的值写到这里
……
ja2(3)("value")("text")=e.values("事由或备注") '请老师将上面的值写到这里
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
'-------------
if ret这个结果提示成功 then
With wb.AddMsgPage("","msgpage","登记成功", "")
.AddButton("btn2","继续登记","LFDJ.htm")
End With
else
With wb.AddMsgPage("","msgpage","登记失败", "")
.AddButton("btn2","重新登记","LFDJ.htm")
End With
endif
e.WriteString(wb.Build)
End If
End If
加好友 
发短信
Post By：2022/11/3 9:14:00 [只看该作者]
