求助树控件

天涯过客　发表于：2013-12-02 15:17:28 　

各位老师好!

帮我看下如下代码,怎么样让单击树控件时,打开相应的窗体

谢谢

Private Sub Form_Load()
Dim NODeindex As Node
Set NODeindex = TreeView.Nodes.Add(, , "爷", "本地文件夹", "K1")
NODeindex.Sorted = True
Set NODeindex = TreeView.Nodes.Add("爷", tvwChild, "父1", "收货", "K3")
NODeindex.Sorted = True
Set NODeindex = TreeView.Nodes.Add("爷", tvwChild, "父2", "发货", "K2")
NODeindex.Sorted = True
Set NODeindex = TreeView.Nodes.Add("爷", tvwChild, "父3", "退料", "K2")
NODeindex.Sorted = True
Set NODeindex = TreeView.Nodes.Add("爷", tvwChild, "父4", "不良", "K4")
NODeindex.Sorted = True
End Sub

Top

奇玉发表于：2013-12-02 18:10:23

http://www.accessoft.com/article-show.asp?id=776

按照这篇文章所写的步骤来做，目前你只做了第一小时的功课，接下来的第二小时，第三小时完成后就你会做了。

加油

Top

123木头人发表于：2013-12-02 19:44:00

在窗体中写一下TreeView_NodeClick事件。

Private Sub TreeView_NodeClick(ByVal Node As Object)

    Dim frmName As String'窗体名称变量
    '本实例为TreeView的Key值就是窗体名称
    frmName = Node.Key'取窗体名称
    docmd.OpenForm frmName
End Sub

Top

天涯过客发表于：2013-12-02 19:59:36

那如果是让选项卡取得焦点要怎么写呢

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]求助树控件