主题：这个聊天创建会议时，显示主键相同，是我用户重复了吗，求解？

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 If
Next

qqserver那里UserLogging事件，加上红色的代码。