主题：关于服务器端和客户端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

老师，问题已经找出来了！确实是这里的原因。我的代码就是这样写的，是从帮助文件中复制过来的，我把这一段删除后就正常来。 问题是我还是找不出我怎么有重复的名字？ 我的用户表中有三个不同的部门，每个部门有一个人（不同名字）。 我的系统登录是用开发者或管理员登陆的，openqq客户端是用三个名字登陆的，错在哪里呢？

msgbx(nm)看看