主题：[求助]筛选树多选

 我想做个生产表的多选筛选树，筛选树的节点由我自己设定固定的节点，可下面的代码只能单选，不能多选啊，怎么办呢

 

 

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

谢谢czy    可以多选了，如果把按合金和按客户也可以设置为多选就好了

是这个效果，不过2级节点的目录树如果选中了一级节点的话会报错

此主题相关图片如下：未命名.jpg

 

我还加了句代码不知道有没影响

 

'如果希望选中某个节点的复选框,其子节点能够同步选中,反之亦然.
'为此只需将目录树的AfterCheckNode事件代码设置为:
For Each nd As WinForm.TreeNode In e.Node.AllNodes
    nd.Checked  = e.Node.Checked
Next

多谢狐爸，不会报错了

多谢各位好心朋友，我把最终做的效果发上来给大家看看 ，由于用的是外部数据源，所以只能解压到D:\My Documents或者重新定向数据源后查看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.rar