标题：目录树问题

 我用5个按钮分别生成节点，但是双击节点时，提示错误。年月、学历、工种是字符型，双击节点只要此3个可以，只要加上数字型的工龄补贴、基本工资，就不行。

Dim Value() As String

Value = e.Node.FullPath.Split("\")

Select Case e.Node.Level

    Case 0

        Tables("员工档案").Filter = "[年月] = '" & Value(0) & "' or [学历] = '" & Value(0) & "' or  [基本工资] = '" & Value(0) & "' or  [工种] = '" & Value(0) & "' or  [工龄补贴] = '" & Value(0) & "'"

End Select

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

Tables("员工档案").Filter ="[年月] = '" & Value(0) & "' or [学历] = '" & Value(0) & "' or  [基本工资] = " & Value(0) & " or  [工种] = '" & Value(0) & "' or  [工龄补贴] = " & Value(0)

解决，谢谢C版，不懂，为什么，类型不同，数字型少一个单引号就OK，不管他，这是狐爸定的游戏规则吧，只要能达到效果就好，再次感谢C版。