各位老师按照窗体上的BOM母件编号筛选，树菜单只显示窗体上的母件编号信息

宋雄健　发表于：2020-12-28 23:08:57 　

复制

各位老师请帮忙附件的BOM窗体上选定一个产品编号，树菜单只宣示和窗体上选的母件编号相关的数据，不要全部展开，要怎么写代码筛选，请指教，谢谢！

附件:

点击下载此附件

Top

vious 发表于：2020-12-29 09:07:27

附件里的内容不是挺好的吗？

Top

宋雄健发表于：2020-12-29 19:50:26

各位老师你们好！我的意思是在窗体上的复选框选中8101000000001的母件编号，树的下拉列表不要显示8101000000002的数据，相反在窗体上的复选框选中8101000000002的母件编号，树的下拉列表不要显示8101000000001的数据

Top

vious 发表于：2020-12-30 08:50:57

1.Treeview0_NodeClick中增加 Me.母件编号.RowSource为新的SQL语句；

2.母件编号_AfterUpdate() 中增加 TreeviewLoad()

3.TreeviewLoad()中需要判断母件编号的选中值

问题，需要有个复原功能使母件编号和Treeview0均能全部显示

Top

宋雄健发表于：2020-12-30 14:06:40

vious老师你好！可以帮忙改一下代码吗？谢谢！

Top

vious 发表于：2020-12-30 14:16:12

你都做到这个程度了，改这个代码应该不难呀？再说，问题要自己琢磨出来才有意思的。

Top

宋雄健发表于：2020-12-30 15:51:03

老师，我还在初学阶段，我们公司用的是用友ERP，我想在他的逻辑上开始做ACCESS，试试，还是请指教，谢谢！

Top

vious 发表于：2020-12-30 16:30:45

不建议这样树的写法，且易生产键值重复，

Treeview0_NodeClick的写法作用不大，不能达到常规筛选的功能，或许你有特殊要求，不好评价，

功能描述存在不明确，仅为现行功能描述制作功能价值不大，不值

Top

西出阳关无故人发表于：2020-12-30 19:45:03

增加"母件编号"的更新后事件,代码如下:

Private Sub 母件编号_AfterUpdate()

'根据窗体的"母件编号"的选中值,对树控件进行状态调整
Dim i
For i = 1 To Me.TreeView0.Nodes.Count '循环所有节点
If Me.TreeView0.Nodes(i) = 母件编号 Then '如果节点是"母件编号"选中的值
Me.TreeView0.Nodes(i).Expanded = True '节点展开
Me.TreeView0.Nodes(i).Selected = True '节点选中
Me.TreeView0.Nodes(i).EnsureVisible '节点处于可视范围
Treeview0_NodeClick Me.TreeView0.Nodes(i) '调用节点点击事件
Else '如果节点不是"母件编号"选中的值
Me.TreeView0.Nodes(i).Selected = False '不选中节点
Me.TreeView0.Nodes(i).Expanded = False '不展开节点
End If
Next i
End Sub

需求描述不是很明确,参考吧.

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

各位老师按照窗体上的BOM母件编号筛选，树菜单只显示窗体上的母件编号信息