Foxtable(狐表)用户栏目专家坐堂 → 关于服务器端和客户端OPENqq连接问题


  共有2632人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/20 1:19:00 [显示全部帖子]

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

 

'添加所有同事为好友
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


 回到顶部