[求助]如何为新增节点增加点击事件[已解决] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

根据帮助文件提示：

http://www.foxtable.com/help/topics/0917.htm

我只做了自己的筛选树，

将窗口的AfterLoad事件设为：

e.Form.Controls("TreeView1").BuildTree("订单", "产品|客户|雇员")

然后，设置目录树的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

这样的功能在选择节点后只能按照条件筛选并不能显示全部的数据，现在我希望增加一个目录节点：“显示全部数据”

在AfterLoad中代码修改如下：

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode

tv.Nodes.Clear

tv.BuildTree("订单", "产品|客户|雇员")

nd = tv.Nodes.Insert("加载全部记录","加载全部记录",0)

目前已经实现了在原来的目录上加上了“加载全部记录”的节点，但是我不知道在NodeMouseDoubleClick中如何加代码？谢谢指导

[此贴子已经被作者于2012-5-7 8:24:36编辑过]

if e.Node.text = "加载全部记录"

Tables("订单").Filter ="[_Identify] > -1"

end if

[此贴子已经被作者于2012-5-6 22:44:35编辑过]

if e.Node.text = "加载全部记录"

Tables("订单").Filter =""

Else

'你原来的代码

end if

以下是引用狐狸爸爸在2012-5-6 22:46:00的发言：

if e.Node.text = "加载全部记录"

Tables("订单").Filter =""

Else

'你原来的代码

end if

明白了，清空条件！

[此贴子已经被作者于2012-5-6 22:54:06编辑过]

我这样做了，可是点击各个筛选条件后却不起任何作用了，不知道什么原因，请指导谢谢

我的双击代码

Dim Value()As String

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

Select Case e.Node.Level

Case 0

Tables("表A").Filter ="[产品] = '" & Value(0) & "'"

Case 1

Tables("表A").Filter ="[产品] = '" & Value(0) & "' And [客户] = '" & Value(1) & "'"

Case 2

Tables("表A").Filter ="[产品] = '" & Value(0) & "' And [客户] = '" & Value(1) &"' And [雇员] = '" & Value(2) & "'"

End Select

If e.Node.text = "加载全部记录"

Tables("表A").Filter =""

Else

Tables("表A").Filter ="[_Identify] > -1"

End If

Dim Value()As String

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

Select Case e.Node.Level

Case 0

Tables("表A").Filter ="[产品] = '" & Value(0) & "'"

Case 1

Tables("表A").Filter ="[产品] = '" & Value(0) & "' And [客户] = '" & Value(1) & "'"

Case 2

Tables("表A").Filter ="[产品] = '" & Value(0) & "' And [客户] = '" & Value(1) &"' And [雇员] = '" & Value(2) & "'"

End Select

If e.Node.text = "加载全部记录"

Tables("表A").Filter =""

End If

或者：

Dim Value()As String
Value = e.Node.FullPath.Split("\")
If e.Node.text = "加载全部记录"
    Tables("表A").Filter =""
Else
    Select Case e.Node.Level
        Case 0
            Tables("表A").Filter ="[产品] = '" & Value(0) & "'"
        Case 1
            Tables("表A").Filter ="[产品] = '" & Value(0) & "' And [客户] = '" & Value(1) & "'"
        Case 2
            Tables("表A").Filter ="[产品] = '" & Value(0) & "' And [客户] = '" & Value(1) &"' And [雇员] = '" & Value(2) & "'"
    End Select
End If

谢谢两位老师的指导，照搬代码只是初学者很无奈的办法。不过成功之后的喜悦也是不言而喻的，我希望一步步的开发属于我自己的管理程序，一步步的研究其中的奥秘

主题：[求助]如何为新增节点增加点击事件[已解决]