Access 2003：Treeview控件（树型控件）快速入门(2010-06-01 14:26:08)
很多东西看起来很复杂，其实学起来还是蛮简单的。

说这样的话不是“站着说话不腰疼”，而是切切实实的感受。

很多时候我们会感到恍然大悟，之后便轻车熟路，信手拈来了，这就是前面所说的感觉，正所谓“山重水复疑无路，柳暗花明又一村”。

学这个Treeview控件也是一样。

看起来它那么复杂，解释起来连篇累牍，但是我们需要的却往往只是其中一点，然后不断的重复使用这一点，仅仅这样，就能解决不少实际的问题。

使用Treeview的优点很多，比如具有无限扩展性，一个一个的分支，分支下面又可以增加次一级分支，每级分支又可以有很多并列的分支，这样就能满足多样的需求，另外，它还有很好的组织管理性，因为它具有明显的层级关系，很多人会用TreeView来做物料BOM表，可以说把这种特性发挥的淋漓尽致。

建立下面这样一个Treeview并不难，你只需要使用一句代码，多写几次就OK了。

不妨来看看代码，不过不用怕，记住，这里只有一句代码，其它的都在重复！
Dim ndeindex As Node
Set ndeindex = TreeView0.Nodes.Add(, , "a", "基础资料", "k1")
Set ndeindex = TreeView0.Nodes.Add("a", tvwChild, "a1", "品号资料维护", "k1")
Set ndeindex = TreeView0.Nodes.Add(, , "b", "工时资料", "k1")
Set ndeindex = TreeView0.Nodes.Add("b", tvwChild, "b1", "观测资料查询", "k1")
Set ndeindex = TreeView0.Nodes.Add("b", tvwChild, "b2", "工时查询（依品号）", "k1")
Set ndeindex = TreeView0.Nodes.Add("b", tvwChild, "b3", "工时查询（依其它条件）", "k1")
Set ndeindex = TreeView0.Nodes.Add(, , "c", "产能模式", "k1")
Set ndeindex = TreeView0.Nodes.Add("c", tvwChild, "c1", "FCST产能计算", "k1")
Set ndeindex = TreeView0.Nodes.Add("c", tvwChild, "c2", "产能试算", "k1")
Set ndeindex = TreeView0.Nodes.Add(, , "d", "成本模式", "k1")
所以，不用太多解释，你应该明白这个函数的参数的意思了吧？第一个参数是指它从属的上级，如果它就是顶级，那就空着；第二个参数表示当前这个是前面的那个上级的下一级，这是系统规定的，照抄就行；第三个参数是当前级别的代号；第四个参数就是当前级别的显示文字，想看到什么就写什么；最后一个是指当前级别前面的图，这个在imagelist控件中，如果你要用，就加这个控件，不用也行，就把这个参数空着。

（如果要用，需要现在imagelist中插入图像，然后再treeview中指定使用这个imagelist，k1是在插入图像时指定的图像代号。

如下图所示）
这样，你就做出上面截图所展示出来的模样了。

但是这还只是个壳子，你需要为它指定单击时发生的事件才能使得它有用。

在node（节点）的click事件中，使用这个select语句即可：
Select Case Node.Key
Case "b1"
DoCmd.OpenQuery "produstobserved"
Case "b2"
DoCmd.OpenForm "Frm_worktime_select"
Case "b3"
DoCmd.OpenForm "Frm-Queryworktime"
Case "c1"
DoCmd.OpenForm "FCSTcapacity"
Case "c2"
DoCmd.OpenForm "Tryruncapacity"
End Select
这里只要注意一下key属性的含义就可以了。

key实际上就是你在上面的函数中使用的当前级别的代号，这样，这段代码就很好理解了。

祝大家6.1儿童节快乐！。