Question

access中树形点击树型菜单关联窗体 菜单

我看了你之前的叙述，但是不太明白，我套用后，尝试不成功
请问：label是标签就是要打开的窗体的标签文本，而数据来源上为何是child2，这个2是怎样知道的，麻烦答疑解惑。

Answer 1

导致不能成功的原因非常多，您提供的信息太少，我这里很难做出判断。请提供进一步的详细资料，例如设计方案、代码、截图和报错信息等以便我帮您分析一下问题出在哪里。

追问

树形菜单三级，爷-父-子，若子只有一个，可以。请教两个问题如下：1、我的菜单中有多个子目录，需要点击每个目录出现相应的窗体，如何修改代码。

追答

'加载树形节点
Private Sub Form_Open(Cancel As Integer)   
    Dim nd As Node, i As Integer
    '添加顶级节点
    Set nd = TreeView0.Nodes.Add(, , "顶级", "系统主目录", 1)
    '添加父级节点
    Set nd = TreeView0.Nodes.Add("顶级", tvwChild, "父级_数据管理", "数据管理", 1)
    Set nd = TreeView0.Nodes.Add("顶级", tvwChild, "父级_数据查询", "数据查询", 1)
    Set nd = TreeView0.Nodes.Add("顶级", tvwChild, "父级_退出系统", "退出系统", 1)
    '添加孙级节点
    Set nd = TreeView0.Nodes.Add("父级_数据管理", tvwChild, "孙级_学生管理", "学生管理", 1)
    Set nd = TreeView0.Nodes.Add("父级_数据管理", tvwChild, "孙级_成绩管理", "成绩管理", 1)
    Set nd = TreeView0.Nodes.Add("父级_数据查询", tvwChild, "孙级_学生查询", "学生查询", 1)
    Set nd = TreeView0.Nodes.Add("父级_数据查询", tvwChild, "孙级_分数查询", "分数查询", 1)
    For i = 1 To TreeView0.Nodes.Count
         TreeView0.Nodes(i).Expanded = True '展开所有节点
    Next i    
End Sub

你的情况请参考这个示例代码，自己调整有关设计。由于超字数限制，请继续追问以便补上余下关键代码。

追问

非常感谢，百忙抽空回答，请补充上剩余代码。请教老师：有没有关于access数据库的VBA较为详细的学习资料。

追答

双击树形控件根据所选定的节键打开相应的窗体或作出相应的操作

Private Sub TreeView0_DblClick()
    Select Case TreeView0.SelectedItem.Key
        Case "孙级_学生管理"
            DoCmd.OpenForm "Frm_Students"  '打开学生管理窗体
        Case "孙级_成绩管理"
            DoCmd.OpenForm "Frm_Scores"    '打开成绩管理窗体
        Case "孙级_学生查询"
            DoCmd.OpenForm "Frm_Students_Eqry" '打开学生查询窗体
        Case "孙级_分数查询"
            DoCmd.OpenForm "Frm_Scores_Eqry" '打开分数查询窗体
        Case "父级_退出系统"
            TreeView0.Nodes("顶级").Selected = True
            DoCmd.Close
    End Select
End Sub

另外用树形窗体的不同节点打开相应的窗体，建议采用将打开的窗体以子窗体的形式显示到树形主窗体里，这样做用户体验会比较好，因为被打开的窗体可以跟随出窗体移动。具体的做法请参阅我以往的一条知道回答。

http://zhidao.baidu.com/question/1576746589545359980