快捷菜单报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 快捷菜单报错

共有11701人关注过本帖树形打印复制链接主题：快捷菜单报错

wlxzl

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

加好友

发短信

等级：婴狐帖子：37 积分：336 威望：0 精华：0 注册：2011/9/4 8:55:00

快捷菜单报错 发帖心情

Post By：2011/9/13 13:29:00 [只看该作者]

我的组织机构窗体有一个树控件，我做了快捷菜单M1，我当击右键就出错。请帮看一下。

另：我想单地树节点，右边表就筛选出下级部门，如何做？

wlxzl

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

加好友

发短信

等级：婴狐帖子：37 积分：336 威望：0 精华：0 注册：2011/9/4 8:55:00

Post By：2011/9/13 13:39:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:企业信息管理平台.rar

请看附件

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/9/13 14:13:00 [只看该作者]

6、将目录树的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