線上學習
About Us

線上文檔

首頁 >>線上學習 >>線上文檔

第23章:通過VBA程式操縱Excel伺服器(二)

23.2.3 動態決定顯示哪一種樹型

方法

popTree(<樹型資料規範的名稱>)

在當前單格彈出指定的樹型資料規範

應用場合

如果某個資料項目上需要通過樹型選擇輸入,但是需要顯示何種樹型並不是固定的,而是根據不同的情況,顯示不同的樹型。

示例

在示例資料庫中有如下範本:

 

 

 

 

 

23-6

用戶可以選擇兩種分類標準:按地區、按銷售員。當分類標準=“按地區”時,在“客戶名稱”處彈出“先顯示地區,地區之下顯示客戶”的樹型,如左圖;當分類標準=“按銷售員”時,在“客戶名稱”處彈出“先顯示銷售員,銷售員之下顯示客戶”的樹型,如右圖;

 

 

 

 

 

 

 

 

 

 

 

 

為了達到上述目錄,首先我們需要定義兩種樹型資料規範――-“地區_客戶”和“銷售員_客戶”,其次,在範本的ction_Change事件中寫如下的VBA代碼:

1

Private Sub Worksheet_ctionChange(ByVal Target As Range)

2

    If Target.Address = "$C$3" Then

3

       

4

        Dim oAdd As Object

5

        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

        oAdd = Nothing

18

    End If

19

End Sub

 

2行,判斷當前單格是不是C3單格,如果不是,什麼也不做。如果是,繼續執行下面的代碼。

45行,聲明介面物件,並賦值。(必須這樣寫)

7行,聲明一個字元型變數nTreeName,用於存放應當顯示的樹型名稱

8~14行,根據C2單格(分類標準)的內容,決定要顯示的樹型名稱

15行,決定了樹型名稱後,調用popTree方法,顯示樹型

17行,釋放對象。