可以多选的下拉目录树

本节的任务是设计一个下图所示的下拉目录树,和之前的目录树不同,这个目录树可以选择多个值:

本节的内容可以参考CaseStudy目录下的文件:多选目录树.Table

实现方法很简单:

1、新建一个窗口,名为“窗口1”,窗口类型设置为“DropDownForm”。

2、窗口中插入一个TreeView(目录树)控件和一个Button(按钮),TreeView的"显示复选框"属性设置为True。

3、窗口的DropDownOpened事件设置为:

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

上述代码的目的在于每次打开下拉窗口的时候,都能自动勾选已经输入的项目。
注意这段代码不能设置在窗口的AfterLoad事件中,下拉窗口只有在第一次打开的时候,才会执行AfterLoad事件,而
DropDownOpened每次打开下拉窗口都会执行。

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"


本页地址:http://www.foxtable.com/webhelp/topics/2478.htm