主题：openqq部门排序

openqq聊天窗口中，部门排序，上下位置可以改动吗？

 

不可以，除非你给部门加一个前缀，如 01人事部  02后勤部 之类的。

哦，明白。还有个问题，我把客户端集成到项目里了，聊天窗口设置为自动打开。可是项目打开后显示的是项目的窗口，聊天窗口看不到，藏在项目窗口的后面，用开发者登录，关掉项目窗口才能看到聊天窗口，怎么解决？

加了01 02等不行，顺序没动，是这样排的：04财务部、02生产部、03技术部等等

如果你没有把你的项目窗口置顶，那使用下面方法激活聊天窗口

 

http://www.foxtable.com/webhelp/scr/2713.htm

 

聊天窗口看不见的问题解决了，设置为主窗口就行了。聊天部门排序还是不行呢

服务器端，添加用户的时候，注意排序（添加的先后，直接导致部门的先后），如

 

Dim pts() As String = e.UserName.Split(".")
Dim dr1 As DataRow
dr1 = DataTables("用户").Find("部门 = '" & pts(0) & "' And 姓名 = '" & pts(1) & "'")
If dr1 Is Nothing  Then '判断此用户不存在
    e.Message  = "用户名错误!" '返回给登录者的提示信息
    Return
End If
If dr1("密码") <> e.Password Then '如果密码错误
    e.Message  = "登录密码错误!" '返回给登录者的提示信息
    Return
End If
e.Success = True '允许用户登录
'添加所有同事为好友
For Each dr2 As DataRow In DataTables("用户").Select("", "部门") '根据部门列排序
    Dim nm As String =  dr2("部门") & "." & dr2("姓名")
    If nm <> e.UserName Then '如果不是登录者本人
        e.Buddies.Add(nm)
    End If
Next