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

测试了一下，是根据_Identify排序的。所以你要控制排序，你就必须按照顺序数据行。

比如有四个分组，第一行、第二行、第三行、第四行，就排序好分组。

哦，说错了，可以指定排序的，根据添加的用户的先后排序的

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