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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何为新增节点增加点击事件[已解决]

共有8751人关注过本帖树形打印复制链接主题：[求助]如何为新增节点增加点击事件[已解决]

程兴刚

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7259 积分：40814 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/5/6 22:43:00 [显示全部帖子]

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

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

end if

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

程兴刚

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7259 积分：40814 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/5/6 22:53:00 [显示全部帖子]

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

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

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

Else

'你原来的代码

end if

明白了，清空条件！

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

程兴刚

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7259 积分：40814 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/5/7 1:23:00 [显示全部帖子]

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

程兴刚

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7259 积分：40814 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/5/7 1:25:00 [显示全部帖子]

或者：

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

下一主题 >> << 上一主题

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