Office中国论坛/Access中国论坛

标题: [求助]treeview菜单与数据连结求助 [打印本页]

作者: piaoran 时间: 2006-6-20 19:53
标题: [求助]treeview菜单与数据连结求助
打算做个人事系统，仿照网上的

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

[attach]18610[/attach]

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

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

作者: fan0217 时间: 2006-6-21 05:32
参考：http://www.office-cn.net/forum.php?mod=viewthread&tid=36407&replyID=&skin=1

作者: piaoran 时间: 2006-6-21 21:36
标题: [讨论]代码应该怎么修改
数据现在是连接上了，但是点击菜单中的全部部门右边不显示数据

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

谢谢

菜单数据代码：

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

[attach]18635[/attach]

作者: piaoran 时间: 2006-6-21 22:08
已经解决

谢谢各位大虾了

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