自定义信息提示窗口

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

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

---------------------------------------------------------------------------------------

如何给拥有审核权限的用户发送呢，不指定用户名

我现在的代码要怎么改，在Users表不加载的情况下怎么后台取值

with tables("销售")

For Each dr As DataRow In DataTables("Users").DataRows

    Dim n As String = dr("权限")

    If n.Contains("A1_X1_EAV") Then

        QQClient.Send("用户2","+@|" & .Current("单据类型") & "|" & .Current("单号") & "|" & _UserName & "|" & .Name)

    End If

Next

end with

----------------------------------------------------------------

用户名          权限

张三    |A1|A1_C1|A1_C1_Input|。。。

参考

http://www.foxtable.com/webhelp/scr/2900.htm

http://www.foxtable.com/webhelp/scr/2915.htm

http://www.foxtable.com/webhelp/scr/2724.htm