以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  已添加了具有相同键的项  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=134843)

--  作者:syjylyq
--  发布时间:2019/5/10 13:30:00
--  已添加了具有相同键的项
启动OPENQQ报错,之前在局域网上是好的,放到阿里云之后就变成这样了。


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2019/5/10 15:03:00
--  

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