第一步，如何发出一个通知“所有部门经理，要提交考勤审核了”第二步，OK
第三步，
审核的代码有点乱，（我希望经理点“审核”按钮，整个部门人都审核了，之后就会发送审核信息，但是代码能实现审核，不能实现发送信息。）
If User.Group = "经理" Then
Dim t As Table = Tables("考勤统计表")
For i As Integer = t.TopPosition To t.BottomPosition
t.rows(i)("审核") = user.name
Next
End If
If User.Group = "经理" Then
Dim r As Row = Tables("考勤统计表").Current
r("审核") = user.name
r.Save()
'发送审核通过的消息
QQClient.Send("张三","-@|" & r("部门") & "|" & User.Name)
End If
保存的代码也是按照教程编的（我希望经理点“保存”按钮，出现类似教程的 需要审核的提示框。）
Dim r As Row = Tables("考勤统计表").Current
r.Save()
QQClient.Send("李四","+@|" & r("_Identify") & "|" & r("部门") & "|" & User.Name)
加好友 
发短信
Post By：2016/7/29 12:02:00 [显示全部帖子]
此主题相关图片如下：qq截图20160729164007.png