Office中国论坛/Access中国论坛

标题: 为什么treeview点击菜单下的"全部部门"右边不显示数据? [打印本页]

---

作者: maketing    时间: 2012-6-3 22:17
标题: 为什么treeview点击菜单下的"全部部门"右边不显示数据?
[attach]49295[/attach]
在网上看到一个示例,想学习一下.但是有2个问题请教各位老师:

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

---

作者: Henry D. Sy    时间: 2012-6-4 10:59
试试：

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    时间: 2012-6-4 11:03
问题2

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

复制代码

---

作者: maketing    时间: 2012-6-4 18:03
谢谢版主的回答,问题2倒是解决了.

---

作者: maketing    时间: 2012-6-4 18:09
问题1使用版主的新代码能打开右边数据显示全部的人员,但是点击左边每个部门下的节点都显示全部人员了,怎么回事?请看附件.[attach]49300[/attach].
再次谢谢.

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3