主题：快捷菜单报错

6、将目录树的NodeMouseDoubleClick事件设为：

Dim Value()As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Tables("订单").Filter ="[产品] = '" & Value(0) & "'"
    Case 1
        Tables("订单").Filter ="[产品] = '" & Value(0) & "' And [客户] = '" & Value(1) & "'"
    Case 2
        Tables("订单").Filter ="[产品] = '" & Value(0) & "' And [客户] = '" & Value(1) &"' And [雇员] = '" & Value(2) & "'"
End Select