主题：openqq部门排序

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

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

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