UserLogging事件,改代码,红色代码
For Each dr2 As DataRow In DataTables("user").select("") Dim nm As String = dr2("部门") & "." & dr2("name") If nm <> e.UserName Then \'如果不是登录者本人 If e.Buddies.Contains(nm)= False Then e.Buddies.Add(nm) End If End IfNext