主题：[求助]自定义信息提示窗口

3、在发货单编辑窗口的保存按钮中，写入如下代码：

Dim r As Row  = Tables("送货单").Current
r.Save()
QQClient.Send("李四","+@|" & r("_Identify") & "|" & r("单号") & "|" & User.Name)

4、在发货单编辑窗口的审核按钮中，写入如下代码：

Dim r As Row  = Tables("送货单").Current
r("审核") = True
r.Save()
'发送审核通过的消息
QQClient.Send("张三","-@|" & r("单号") & "|" & User.Name)

我想问的是：

1.如果送货单不仅仅是张三一个人可以录入，其他人比如王五也可以录入，这样的话第4条发送审核能过的消息要怎么写，是要把所有有录入权限的人都写上吗？

2.同样，如果有审核权的不仅是李四一个人，一个部门可以有好几个人都有审核权限，这样的话第3条的消息发送语句要怎样写？

  谢谢！