老师，我的计划管理有两个计划，一个是下企业微信打卡数据，一个是下载审批数据，连接到单位数据库没问题，连接到阿里云服务器上数据库后下载打卡数据时通过msgbox 显示是审批数据，是不是我的注册码有问题？谢谢！
Dim st As New Date(1970,1,1,8,0,0)
Dim t1 As Integer = CInt((Date.Today.AddDays(-7) - st).TotalSeconds()) '时间戳开始时间
Dim t2 As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳结束时间
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckindata?access_token={0}"
Dim hc As New HttpClient(CExp(ur,Functions.Execute("打卡GetQYAccessToken"),1))
Dim jo As New JObject
jo("opencheckindatatype") = 3 ' 是 打卡类型.1:上下班打卡;2:外出打卡;3:全部打卡
jo("starttime") = t1
jo("endtime") = t2
Dim ja As New Jarray '定义数组
Dim dds As List(of DataRow) = DataTables("Users").Select("userid is not null")
For Each dd As DataRow In dds
ja.Add(CStr(dd("userid")))
Next
jo("useridlist") =ja
hc.Content = jo.Tostring()
jo = JObject.Parse(hc.GetData)
If jo("checkindata") IsNot Nothing Then
ja = jo("checkindata")
msgbox(jo("checkindata"))
For i As Integer = 0 To ja.Count - 1
加好友 
发短信
Post By：2020/10/19 9:45:00 [显示全部帖子]
