以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]目录树排序及用目录树打开外网QQ  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88189)
--  作者：cd_tdh
--  发布时间：2016/7/28 15:12:00
--  [求助]目录树排序及用目录树打开外网QQ

目录树代码入下：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("表A","部门|姓名|QQ")

1、我需要目录树按照序号列排序，代码怎么写啊？

2、我想在目录树上面点击QQ号码直接打开QQ发送消息怎么实现？

[此贴子已经被作者于2016/7/28 15:12:43编辑过]
--  作者：Hyphen
--  发布时间：2016/7/28 15:39:00
--  
1.http://www.foxtable.com/webhelp/scr/0894.htm

trv.BuildTree("表A","部门|姓名|QQ","","序号")

2.
Dim Proc As New Process
Proc.File = "tencent://message/?uin=12345678"   \'好友的QQ号
Proc.Start()
--  作者：cd_tdh
--  发布时间：2016/7/28 15:53:00
--  
以下是引用Hyphen在2016/7/28 15:39:00的发言：
2.
Dim Proc As New Process
Proc.File = "tencent://message/?uin=12345678"   \'好友的QQ号
Proc.Start()

老师，这个只能打开指定的号码，我目录树里面的联系人很多，我需要点击那个就打开那个人的会话窗口啊。
--  作者：Hyphen
--  发布时间：2016/7/28 16:46:00
--  
测试没有问题，上面红色字改为联系人qq号即可
--  作者：Hyphen
--  发布时间：2016/7/28 16:48:00
--  
假如树节点是qq号码

Dim Proc As New Process
Proc.File = "tencent://message/?uin=" & e.Node.Text   \'好友的QQ号
Proc.Start()
--  作者：cd_tdh
--  发布时间：2016/7/29 16:03:00
--  

老师，目录树排序又遇到新问题，我后面相同的部门下的节点，需要合并到前面节点去，怎么弄？


图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2016/7/29 17:13:00
--  
trv.BuildTree("表A","部门|姓名|QQ","","部门,序号")
--  作者：cd_tdh
--  发布时间：2016/8/1 9:17:00
--  

狐爸，先按部门，在按序号排序，能解决重复部门问题，但这样总公司是在最后，我想把管理员、总公司放最前面，能否解决？
--  作者：大红袍
--  发布时间：2016/8/1 9:58:00
--  

 加一个排序列，设置好各个部门的排序 1、2、3、4，然后写代码

 

trv.BuildTree("表A","部门|姓名|QQ","","排序列,序号")