- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]多级多选能不能通过菜单方式搭建？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25947)
-- 发布时间：2012/11/20 15:56:00
-- [求助]多级多选能不能通过菜单方式搭建？
如题：
下方的代码根本不知道怎么操作！怎么建1个窗口……
1、新建一个窗口，名为“窗口1”，窗口类型设置为“DropDownForm”。
2、窗口中插入一个TreeView(目录树)控件和一个Button(按钮)。
3、窗口的AfterLoad事件设置为：
Dim s As String = e.Form.DropDownBox.Value
Dim nms As new List(of String)
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If s > "" Then
nms.AddRange(s.Split(","))
End
If
For Each nd As WinForm.TreeNode In trv.AllNodes
nd.Checked = nms.Contains(nd.text)
Next
4、确定按钮的代码设置为：
Dim s As String
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Checked Then
s = s & "," & nd.Text
End If
Next
e.Form.DropDownBox.Value = s.trim(",")
e.Form.DropDownBox.CloseDropdown
5、最后将项目事件AfterOpenProject的代码设置为：
Tables("表A").Cols("第一列").DropForm = "窗口1"
-- 发布时间：2012/11/20 16:42:00
--
楼上我是想建多级多选菜单！
有没有不用代码编辑的方法
-- 发布时间：2012/11/20 17:04:00
--
楼上我是想建多级多选菜单！
有没有不用代码编辑的方法
不能，看例子。帮助里不是有一个 多选目录树.Table 的例子了吗？打开，参考下。
-- 发布时间：2012/11/20 17:16:00
--
-- 发布时间：2012/11/20 17:25:00
--
呃，楼主，你多选的意义何在？你不是每一行，只需要选择一个么？
在列属性那里，目录树那里来源的列，和接收的列，不是可以多列的么？
我现在还不明白。
-- 发布时间：2012/11/21 8:59:00
--
不是吧，红色小方块是可以多选的意思！
-- 发布时间：2012/11/21 9:00:00
--
貌似不用代码解决不了啊
-- 发布时间：2012/11/21 9:03:00
--
不是吧，红色小方块是可以多选的意思！
楼主，那我就不懂了，你多选以后，是想自动添加多行吗？不用代码，怎么可能实现你的功能。
-- 发布时间：2012/11/21 10:39:00
--
楼主，那我就不懂了，你多选以后，是想自动添加多行吗？不用代码，怎么可能实现你的功能。
添加什么多行啊？
1、自动在其他列中填充内容是要和其他表对应明细用的
2、想请教详细的编译方法。谢谢！
此主题相关图片如下：bbb.jpg
-- 发布时间：2012/11/21 10:57:00
--
问个具体的问题，如果选择了初级，又选择了中级，怎么填充？
再有就是，你上传一个例子，输入少量数据。