添加用户的时候出错的。你用户那里肯定有重复的名字。
'添加所有同事为好友For Each dr2 As DataRow In DataTables("用户").DataRows Dim nm As String = dr2("部门") & "." & dr2("姓名") If nm <> e.UserName Then '如果不是登录者本人 e.Buddies.Add(nm) End IfNext