【求助】在treeview控件中的连接窗体问题？

wjsfeng

我想在treeview中加入
博士---科研课题表
      ---临床课题表
硕士---科研课题表
     ---临床课题表

我想分别打开博士科研课题表、博士临床课题表、 硕士科研课题表、硕士临床科研课题表。
这怎么操作？
请求指点！！！！

sgrshh29

Private Sub treeview1_nodeclick(ByVal Node As Object)
On Error Resume Next
If Node.Children = 0 Then
    DoCmd.OpenForm treeview1.SelectedItem.Parent.Text & treeview1.SelectedItem.Text
End If
End Sub

wjsfeng

谢谢啊。太感谢了

wjsfeng

我想在treeview中加入多级折叠菜单，具体如下：
博士---科研课题表
              ----中医科研表
                         ---中医内科科研表
                                   ---中医内科（脾胃）科研表
                                                     ---中医内科（肝胆）科研表
                                     ---中医外科科研表
                                    ---中医外科（皮肤病）科研表
                                     ---中医外科（骨科）科研表
                     ----西医科研表
      ---临床课题表
硕士---科研课题表
     ---临床课题表

我想分别打开博士中医内科（脾胃）科研表，博士中医内科（肝胆）科研表等表格，这有需要怎么操作？

万分感激，这可能会有一定难度吧，我是外行，不太懂，见笑。

wjsfeng

1博士---2科研课题表
              ----3中医科研表
                         ---4中医内科科研表
                                   ---5中医内科（脾胃）科研表
                                   ---5中医内科（肝胆）科研表
                         --4中医外科科研表
                                    ---5中医外科（皮肤病）科研表
                                    ---5中医外科（骨科）科研表
                     ----3西医科研表
      ---2临床课题表
1硕士---2科研课题表
     ---2临床课题表

wjsfeng

请求高手帮助

wjsfeng

这个有没有人会啊？？？？？
请求援助！！！！！！！

wjsfeng

1博士---2科研课题表
              ----3中医科研表
                         ---4中医内科科研表
                         --4中医外科科研表
              ----3西医科研表
      ---2临床课题表
1硕士---2科研课题表
     ---2临床课题表


建立这样的树形结构，当我单击“5中医内科（脾胃）科研表”时，就能进入“5中医内科（脾胃）科研表”这个窗体。请问你有什么办法么？？？
请赐教！！！！！！！！！

同时我想在每个节点前加入图标应该怎样操作？？？？？

我在论坛上看到了一些代码是这样的：

Option Compare Database
Private Sub Form_Load()
treeview1.LineStyle = tvwRootLines
treeview1.Nodes.Add , , "boshi", "博士"
treeview1.Nodes.Add "boshi", tvwChild, "keyan1", "科研课题表"
treeview1.Nodes.Add "keyan1", tvwChild, "zhongyikeyanbiao", "中医科研表"
treeview1.Nodes.Add "zhongyikeyanbiao", tvwChild, "zhongyineikekeyanbiao", "中医内科科研表"
treeview1.Nodes.Add "zhongyikeyanbiao", tvwChild, "zhongyiwaikekeyanbiao", "中医内科科研表"
treeview1.Nodes.Add "keyan1", tvwChild, "xiyikeyanbiao", "西医科研表"
treeview1.Nodes.Add "boshi", tvwChild, "linchuang1", "临床课题表"
treeview1.Nodes.Add , , "shuoshi", "硕士"
treeview1.Nodes.Add "shuoshi", tvwChild, "keyan2", "科研课题表"
treeview1.Nodes.Add "shuoshi", tvwChild, "linchuang2", "临床课题表"
treeview1.Nodes.Add , , "benke", "本科"
treeview1.Nodes.Add "benke", tvwChild, "keyan3", "科研课题表"
treeview1.Nodes.Add "benke", tvwChild, "linchuang3", "临床课题表"
End Sub


********下面的编程我就不会了********************
*******请高手指点迷津，万分感激******************
Private Sub treeview1_nodeclick(ByVal Node As Object)
On Error Resume Next
If Node.Children = 0 Then              
    DoCmd.OpenForm treeview1.SelectedItem.Parent.Text & treeview1.SelectedItem.Text
End If
End Sub
**********************************************************************

tzt0625

图标需要 ImageList 控件的支持 ，你可以在论坛搜索一下

wjsfeng