老师:

您好!

多选 目录树

在没勾选时就不显示数据,请问在那里加代码及代码怎样写?

谢谢!!!

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.Nodes \'清除子节点选中状态
    nd.Checked = False
Next
If e.node.ParentNode IsNot Nothing Then \'去掉父节点选中状态
    e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
      If nd.Checked Then
        If flt > "" Then
            flt = flt & " Or "  \'注意用or而不是And
        End If
        If nd.Level = 0 Then \'注意下面的条件都要用括号括起来
            flt = flt & "( 产品 = \'" & nd.Text & "\')"
        Else
            flt = flt & "( 产品 = \'" & nd.ParentNode.Text & "\' And 客户 = \'" & nd.Text & "\')"
        End If
    End If   
Next
Tables("订单").Filter = flt

老师:

您好!

打开表的目录树,在没有勾选时显示全部数据,

能不能改成没有勾选就不显示数据?

我试了好多天,都不成功,请问在那里加代码?

恳请指教!!!

谢谢!!