以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5612)

--  作者: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
图片点击可在新窗口打开查看

--  作者:czy
--  发布时间:2009/12/24 0:09:00
--  
Tables("员工档案").Filter ="[年月] = \'" & Value(0) & "\' or [学历] = \'" & Value(0) & "\' or  [基本工资] = " & Value(0) & " or  [工种] = \'" & Value(0) & "\' or  [工龄补贴] = " & Value(0)
--  作者:wqc360
--  发布时间:2009/12/24 8:58:00
--  
解决,谢谢C版,不懂,为什么,类型不同,数字型少一个单引号就OK,不管他,这是狐爸定的游戏规则吧,只要能达到效果就好,再次感谢C版。