以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  快捷菜单报错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=12746)

--  作者:wlxzl
--  发布时间:2011/9/13 13:29:00
--  快捷菜单报错

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

另:我想单地树节点,右边表就筛选出下级部门,如何做?


--  作者:wlxzl
--  发布时间:2011/9/13 13:39:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:企业信息管理平台.rar

请看附件
--  作者:blackzhu
--  发布时间: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


--  作者:狐狸爸爸
--  发布时间:2011/9/13 14:51:00
--  

我测试右键没有出错,注意必须打开你的用户菜单,而不是系统菜单,才能测试,否则会出错。

因为系统菜单不存在名为m1的快捷菜单。


--  作者:wlxzl
--  发布时间:2011/9/13 15:26:00
--  

谢谢,但我不知道如何打开用户菜单呀


--  作者:狐狸爸爸
--  发布时间:2011/9/13 15:34:00
--  

你启动后,默认打开的就是用户菜单。

 

另在开发阶段,你可以在窗口加两个按钮,分别用于打开系统菜单和用户菜单:

 

打开用户菜单:Syscmd.Project.OpenUserMenu()
打开系统菜单:Syscmd.Project.OpenSystemMenu()


--  作者:wlxzl
--  发布时间:2011/9/13 15:50:00
--  

默认打开的就是用户菜单,什么都没有,只表看的见,我想打开窗体,都不知从哪下手呀


--  作者:狐狸爸爸
--  发布时间:2011/9/13 15:54:00
--  

在项目事件AfterOpenProject事件中设置代码:

 

Forms("组织机构").Open()

 

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:企业信息管理平台.rar


--  作者:wlxzl
--  发布时间:2011/9/13 16:36:00
--  
谢谢!