主题：OpenQQ

看到这种代码，就删除

e.Form.Controls("btnChat").Enabled = True

不清楚你是如何改写的。

请把服务器端、客户端两个项目发上来测试。

把客户端做到你的项目去；服务器端，直接使用QQServer.Table那个项目即可。

启动qqserver，启动服务器；然后打开你的项目，登陆openqq测试。

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