-- 作者:wqc360
-- 发布时间:2009/12/23 21:19:00
-- 目录树问题
我用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
|