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

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的列表那种的单列多选框

不知这样行不行？

Dim s As String
For Each nd As WinForm.TreeNode In e.Form.Controls("TreeView1").AllNodes
    If nd.Checked = True
        s & = ",\'" & nd.name & "\'"
    End If
Next
If s <> "" Then
    Tables("生产").Filter = "品种 In (" & s.Trim(",") & ")"
End If

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

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

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

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

If e.Node.ParentNode Is Nothing Then

    Return

End If

Dim s As String
For Each nd As WinForm.TreeNode In e.Node.ParentNode.AllNodes
    If nd.Checked = True
        s & = ",\'" & nd.name & "\'"
    End If
Next
If s <> "" Then
    Tables("生产").Filter = e.Node.ParentNode.name & " In (" & s.Trim(",") & ")"
End If

多谢狐爸，不会报错了

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

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

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