訪問Hierarchical FlexGrid控件
要在Visual Basic中安裝並訪問Hierarchical FlexGrid控件，請使用以下步驟。
要安裝和訪問Hierarchical FlexGrid控件
1. 在“工程”菜單中，選擇“部件”。出現“部件”對話框。
2. 在“控件”選項卡中，選擇“MicrosoftHierarchical FlexGridControl 6.0”，然後單擊“確定”。MSHFlexGrid 控件被添加到Visual Basic工具箱中。
3. 在Visual Basic工具箱中，單擊 MSHFlexGrid 控件，然後將其拖到一個Visual Basic窗體上。
-或者-
在Visual Basic工具箱上，雙擊 MSHFlexGrid 控件，將其添加到窗體上。
將數據綁定到Hierarchical FlexGrid
在開始使用它的功能之前，必須先將數據綁定到Hierarchical FlexGrid。要將數據綁定到控件，可以使用Visual Basic新的 Data Binding Manager，或者通過編程實現。
在將Hierarchical FlexGrid綁定到數據源之後，Hierarchical FlexGrid 在設計時屏幕顯示是一個空白列和一個空白行。字段和帶區信息不是自動提取的（要獲得此類信息，請參閱取得結構信息）。如果Hierarchical FlexGrid在沒有字段和帶區信息的情況下運行，那麼在顯示數據的時候將使用缺省的屬性設置。就是說，如果Hierarchical FlexGrid被綁定到一個分層結構的Command，那麼顯示出的數據帶區將是水平排列的，每個帶區中包含一列，分別對應於 Recordset 中的每一個字段。
綁定到數據源的Hierarchical FlexGrid
使用Visual BasicData Binding Manager 將數據綁定到Hierarchical FlexGrid
本節說明如何使用Visual BasicData Binding Manager 將數據綁定到Hierarchical FlexGrid。Data Binding Manager 提供了一種便於進行數據綁定的用戶界面。
使用Visual BasicData Binding Manager 設置 DataSource
1. 為Hierarchical FlexGrid創建數據源。數據源可以是 DataEnvironment 對象或者 ActiveXData Control，或者是一種新的Visual Basic功能。在本例中，將數據源創建為 DataEnvironment 對象。
2. 在Visual Basic工具箱上，單擊 MSHFlexGrid 控件，然後將其拖到一個Visual Basic窗體上。
-或者-
在Visual Basic工具箱上，雙擊 MSHFlexGrid 控件將其拖到一個 VisualBasic 窗體上。
3. 在Visual Basic“屬性”窗口中，將 DataSource 屬性設置為包含了希望被綁定到Hierarchical FlexGrid的 Command 對象的 DataEnvironment對象。
警告 如果 DataSource 被重新設置，Hierarchical FlexGrid 單元格中的所有用戶定義的、修改過的數據都將被丟失。4. 在Visual Basic“屬性”窗口中，將 DataMember 屬性設置為 DataEnvironment 中的一個 Command 對象。如果希望在 HierarchicalFlexGrid 中查看分層結構的數據，那麼必須指定 Command 分層結構中最頂部的父 Command 對象作為 DataMember。
5. 要查看Hierarchical FlexGrid中的數據，請在“運行”菜單中選擇“開始”。
-或者-
按下 F5 鍵。
以編程方式將數據綁定到Hierarchical FlexGrid
本節描述如何以編程方式將數據綁定到Hierarchical FlexGrid。要以編程方式設置 DataSource
1. 在Visual Basic工具箱中，雙擊 MSHFlexGrid 控件，將其放在一個Visual Basic 窗體上。
2. 右擊該Hierarchical FlexGrid，然後從快捷菜單中選擇“查看代碼”。出現“代碼編輯器”窗口。
3. 在 Form_Load 事件中，添加代碼來創建一個 ADO Recordset 並將其賦予Hierarchical FlexGrid。該代碼將在下面的分步驟中提供。
注意 要以編程方式設置數據源，工程中必須要有指向 MicrosoftActiveX Data Objects 的引用：在“工程”菜單中，選擇“引用”，然後選擇“Microsoft ActiveX Data Objects 2.0 Library”。
插入下列代碼，創建一個 ADO Connection 和 Recordset，請根據實際情況替換其中的注釋（例如，將 <myDataSource> 替換為數據源的實際名稱）：
DIM Cn As New Connection, Rs As New Recordset
' 你需要將 <myDataSource> 替換為你的系統
' 中的一個有效的 DSN。
Cn.ConnectionString = "DSN=<myDataSource>"
' 使用下列代碼用於 SHAPE Commands
Cn.Provider = "MSDataShape"
Cn.CursorLocation = adUseNone
' 第二種辦法，對於 SQL Commands 可使用下列代碼
Cn.CursorLocation = adUseNone
Cn.Open
' 需要為上面創建的 Connection 的 Recordsets 指定
' 有效的數據源
Rs.Source = "<valid SQL SELECT command>"
' 現在將 Command 與 Connection 關聯
' 起來並執行它們。
Set Rs.ActiveConnection = Cn
Rs.Open
插入下面的代碼，將 Rs 中打開的 Recordset 賦予 HierarchicalFlexGrid：
Set MSHFlexGrid1.DataSource = Rs
4. 要查看Hierarchical FlexGrid中的數據，請在“運行”菜單中選擇“開始”。
-或者-
按下 F5 鍵。
