主题：网络测试

你的好友重复了，参考

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=103992&skin=0

无语，就是这个问题

For Each dr2 As DataRow In DataTables("user").DataRows
    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 If
Next

你有两行空行，添加好友的时候，空行重复了。