主题：[求助]多级多选能不能通过菜单方式搭建？

如题：

下方的代码根本不知道怎么操作！怎么建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"

楼上我是想建多级多选菜单！

有没有不用代码编辑的方法

不能，看例子。帮助里不是有一个 多选目录树.Table 的例子了吗？打开，参考下。

 

 呃，楼主，你多选的意义何在？你不是每一行，只需要选择一个么？

 在列属性那里，目录树那里来源的列，和接收的列，不是可以多列的么？

 我现在还不明白。

不是吧，红色小方块是可以多选的意思！

貌似不用代码解决不了啊

楼主，那我就不懂了，你多选以后，是想自动添加多行吗？不用代码，怎么可能实现你的功能。