主题：关于服务器端和客户端OPENqq连接问题

 添加用户的时候出错的。你用户那里肯定有重复的名字。

'添加所有同事为好友
For Each dr2 As DataRow In DataTables("用户").DataRows
    Dim nm As String =  dr2("部门") & "." & dr2("姓名")
    If nm <> e.UserName Then '如果不是登录者本人
        e.Buddies.Add(nm)
    End If
Next