为什么treeview点击菜单下的"全部部门"右边不显示数据?

maketing

在网上看到一个示例,想学习一下.但是有2个问题请教各位老师:

          1.运行main窗体，击菜单下的"全部部门"右边不显示数据?
      2.双击右侧的社员编号提示错误信息,不能打开个人档案。
      已经写有代码,能修改一下吗? 谢谢!

Henry D. Sy

试试：

1. Private Sub Tree_Click()
   
2.     Dim a As String
   
3.     Dim k As String
   
4.     Dim sql As String
   
5.     a = Tree.SelectedItem
   
6.     s = Left(Tree.SelectedItem.Key, 1)
   
7.     If s = "z" Then
   
8.         sql = "select * from 个人档案 "
   
9.     Else
   
10.         sql = "select * from 个人档案 where 部门='" & Tree.SelectedItem & "'"
    
11.     End If
    
12.     Me.子对象2.Form.RecordSource = sql
    
13.     Me.子对象2.Requery
    
14. End Sub
    

复制代码

Henry D. Sy

问题2

1. Private Sub 社员编号_DblClick(Cancel As Integer)
   
2.     DoCmd.OpenForm "个人档案", acNormal, , "社员编号='" & Me.社员编号 & "'"
   
3. End Sub
   

复制代码

maketing

谢谢版主的回答,问题2倒是解决了.

maketing

问题1使用版主的新代码能打开右边数据显示全部的人员,但是点击左边每个部门下的节点都显示全部人员了,怎么回事?请看附件..
再次谢谢.