特殊情况，双击目录树内容，显示不同的表？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 特殊情况，双击目录树内容，显示不同的表？

共有11153人关注过本帖树形打印复制链接主题：特殊情况，双击目录树内容，显示不同的表？

akzzwj

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

加好友

发短信

等级：二尾狐帖子：529 积分：3605 威望：0 精华：0 注册：2011/10/11 17:20:00

特殊情况，双击目录树内容，显示不同的表？ 发帖心情

Post By：2012/3/2 15:00:00 [只看该作者]

像下图这样的列，根据列内容生成的目录树，然后点击目录树中的文字，显示不同的内容，目录树的NodeMouseDoubleClick事件代码该怎么写呢？
图片点击可在新窗口打开查看

此主题相关图片如下：未命名-1.png

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47477 积分：251256 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/3/2 15:02:00 [只看该作者]

MainTable = Tables("表名")

akzzwj

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

加好友

发短信

等级：二尾狐帖子：529 积分：3605 威望：0 精华：0 注册：2011/10/11 17:20:00

Post By：2012/3/2 15:04:00 [只看该作者]

狐狸爸爸上面的这是什么意思啊

、

akzzwj

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

加好友

发短信

等级：二尾狐帖子：529 积分：3605 威望：0 精华：0 注册：2011/10/11 17:20:00

Post By：2012/3/2 15:05:00 [只看该作者]

Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Filter ="Year(日期) = " & Value(0)
    Case 1
        Filter ="Year(日期) = " & Value(0) & " And Month(日期) = " & Value(1)
    Case 2
        Filter ="Year(日期) = " & Value(0) & " And Month(日期) = " & Value(1) & " And 产品 = '" & Value(2) & "'"
    End Select
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()