[求助]treeview菜单与数据连结求助

piaoran

打算做个人事系统，仿照网上的

做到菜单出经过多次努力终究失败，还请各位大虾帮助解决



运行main窗体，左侧的和右侧的帮助给连接下好吗？我老是弄不好，选择制造一课右侧只显示一课人员，选铸造，只显示铸造人员，   双击右侧的社员编号能打开此人的个人档案窗口
      谢谢
      

[此贴子已经被作者于2006-6-20 12:39:15编辑过]

fan0217

参考：http://www.office-cn.net/forum.php?mod=viewthread&tid=36407&replyID=&skin=1

piaoran

数据现在是连接上了，但是点击菜单中的全部部门右边不显示数据

双击社员编号提示错误信息：方法和数据信息未找到，该怎么办

谢谢

菜单数据代码：

Private Sub Tree_Click()
    Dim a As String
    Dim k As String
    Dim sql As String
    a = Tree.SelectedItem
    s = Left(Tree.SelectedItem.Key, 1)
    If s = "z" Then
        sql = "select * from 个人档案 where 部门='" & Tree.SelectedItem.Parent & "' and 工程='" & Tree.SelectedItem & "'"
    Else
         sql = "select * from 个人档案 where 部门='" & Tree.SelectedItem & "'"
    End If
    Me.子对象2.Form.RecordSource = sql
    Me.子对象2.Requery
End Sub





双击社员编号代码

Private Sub 社员编号_DblClick(Cancel As Integer)
DoCmd.OpenForm ("个人档案")
    Forms!个人档案.Filter = "社员编号='" & Me.个人档案明细.Form.社员编号 & "'"
    Forms!个人档案.FilterOn = True
End Sub

piaoran

已经解决

谢谢各位大虾了