在线学习
About Us

在线文档

首页 >>在线学习 >>在线文档

popTree(<树型数据规范的名称>)

根据参数,动态显示树型选择。

方法
popTree(<树型数据规范的名称>)
在当前单元格弹出指定的树型数据规范。

应用场合
如果某个数据项上需要通过树型选择输入,但是需要显示何种树型并不是固定的,而是根据不同的情况,显示不同的树型。

示例
在示例数据库中有如下模板:


用户可以选择两种分类标准:按地区、按销售员。当分类标准=“按地区”时,在“客户名称”处弹出“先显示地区,地区之下显示客户”的树型,如下图;

当分类标准=“按销售员”时,在“客户名称”处弹出“先显示销售员,销售员之下显示客户”的树型,如下图:


为了达到上述目录,首先我们需要定义两种树型数据规范――-“地区_客户”和“销售员_客户”,其次,在模板的Selection_Change事件中写如下的VBA代码:
1 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
2 If Target.Address = "$C$3" Then
3
4 Dim oAdd As Object
5 Set oAdd = Application.COMAddIns("ESClient.Connect").Object
6
7 Dim sTreeName As String
8 If Range("C2") = "按地区" Then
9 sTreeName = "地区_客户"
10 ElseIf Range("C2") = "按销售员" Then
11 sTreeName = "销售员_客户"
12 Else
13 sTreeName = ""
14 End If
15 If sTreeName <> "" Then oAdd.popTree sTreeName
16
17 Set oAdd = Nothing
18 End If
19 End Sub

第2行,判断当前单元格是不是C3单元格,如果不是,什么也不做。如果是,继续执行下面的代码。
第4、5行,声明接口对象,并赋值。(必须这样写)
第7行,声明一个字符型变量nTreeName,用于存放应当显示的树型名称
第8~14行,根据C2单元格(分类标准)的内容,决定要显示的树型名称
第15行,决定了树型名称后,调用popTree方法,显示树型
第17行,释放对象。
 

Excel服务器学习和下载

http://www.qinzhe.com

http://www1.qinzhe.com

http://www3.qinzhe.com