openQQ的聊天窗口的用户分组，组如何排序？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

openQQ的聊天窗口的用户分组，组如何排序？

测试了一下，按照A-Z也是不对的，如图，应该怎么设置，请老师指
导一下，谢谢！

此主题相关图片如下：qq截图20160121164306.png

此主题相关图片如下：qq截.png

[此贴子已经被作者于2016/1/21 17:15:56编辑过]

用户数据保存在外部表中，增加了列department

客户端代码：

If QQClient.Ready Then '判断QQ是否已经打开

Return

End If

QQClient.ServerIP = "192.168.0.39" '指定服务器IP地址

QQClient.ServerPort = 52177 '指定服务器端口

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C '设置了外部数据源,这样能够使用下面的外部数据表

cmd.CommandText = "SELECT * Fr om {xinruiusers} where Name = '" & User.Name & "' " '获得外部数据表xinruiusers的当前用户名的行

dt = cmd.ExecuteReader()

If dt.DataRows.Count > 0 Then

QQClient.UserName = dt.DataRows(0)("department") & "." & user.Name

End If

If QQClient.Start() = True '如果登录成功

Dim msg As String = "恭喜,OpenQQ登录成功!"

If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息

msg = msg & QQClient.ServerMessage

End If

popMessage(msg,"提示",PopiconEnum.Infomation,5)

Else '如果登录失败,显示服务器返回错误信息

PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)

End If

[此贴子已经被作者于2016/1/21 17:14:26编辑过]

服务端的网络监视器中Userlogging事件代码：

Dim pts() As String = e.UserName.Split(".")

Dim dr1 As DataRow

dr1 = DataTables("xinruiusers").Find("department = '" & pts(0) & "' And Name = '" & pts(1) & "'")

If dr1 Is Nothing Then '判断此用户不存在

e.Message = "用户名错误!" '返回给登录者的提示信息

Return

End If

e.Success = True '允许用户登录

DataTables("xinruiusers").Load

'添加所有同事为好友

For Each dr2 As DataRow In DataTables("xinruiusers").DataRows

Dim nm As String = dr2("department") & "." & dr2("Name")

If nm <> e.UserName AndAlso nm <> ".Groups" AndAlso nm <> ".Roles" Then '如果不是登录者本人 '因为用户登录外部表中，默认有2行.Groups和.Roles，所以这里把这两行排除一下。

e.Buddies.Add(nm)

End If

[此贴子已经被作者于2016/1/21 17:11:11编辑过]

红袍老师：你的意思是e.Buddies.Add(nm)，排序根据nm数据加入e.Buddies的先后顺序吗？我怎么调整好呢？不是很明白，

这里的_identify是哪个表的主键列呢？

[此贴子已经被作者于2016/1/21 17:23:13编辑过]

对的，e.Buddies里面数据是哪个部门先加入，哪个部门先排，所以加入前，先把“用户”表，按照“部门”排序好就好了。

老师你太厉害了！

我测试一下，再汇报情况。

主题：openQQ的聊天窗口的用户分组，组如何排序？