我想做个生产表的多选筛选树,筛选树的节点由我自己设定固定的节点,可下面的代码只能单选,不能多选啊,怎么办呢
Dim Value()As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Name
Case 0
Tables("生产").Filter =" "
End Select
'如果点击的是第一层节点,那么就全部显示数据;相反如果点击的是其他的节点,那么就执行如下的筛选
Select Case e.node.Name
Case "YP"
Tables("生产").Filter = "[品种] = 'YP'"
Case "JC"
Tables("生产").Filter = "[品种] = 'JC'"
Case "BP"
Tables("生产").Filter = "[品种] = 'BP'"
Case "YN"
Tables("生产").Filter = "[品种] = 'YN'"
Case "BC"
Tables("生产").Filter = "[品种] = 'BC'"
End Select
此主题相关图片如下:未命名.jpg
我想要的是像EXCEL的列表那种的单列多选框
此主题相关图片如下:未命名.jpg
[此贴子已经被作者于2012-8-24 21:35:22编辑过]