将数据绑定到 Hierarchical FlexGrid

在开始使用它的功能之前，必须先将数据绑定到 Hierarchical FlexGrid。要将数据绑定到控件，可以使用 Visual Basic 新的 Data Binding Manager，或者通过编程实现。

在将 Hierarchical FlexGrid 绑定到数据源之后，Hierarchical FlexGrid 内的设计时屏幕显示是一个空白列和一个空白行。字段和带区信息不是自动提取的（要获得此类信息，请参阅取得结构信息）。如果 Hierarchical FlexGrid 在没有字段和带区信息的情况下运行，那么在显示数据的时候将使用缺省的属性设置。就是说，如果 Hierarchical FlexGrid 被绑定到一个分层结构的 Command，那么显示出的数据带区将是水平排列的，每个带区中包含一列，分别对应于 Recordset 中的每一个字段。

绑定到数据源的 Hierarchical FlexGrid

使用 Visual Basic Data Binding Manager 将数据绑定到 Hierarchical FlexGrid

本节说明如何使用 Visual Basic Data Binding Manager 将数据绑定到 Hierarchical FlexGrid。Data Binding Manager 提供了一种便于进行数据绑定的用户界面。

使用 Visual Basic Data Binding Manager 设置 DataSource

1. 为 Hierarchical FlexGrid 创建数据源。

   数据源可以是 DataEnvironment 对象或者 ActiveX_ Data Object (ADO) Data Control，或者是一种新的 Visual Basic 功能。在本例中，将数据源创建为 DataEnvironment 对象。

2. 在 Visual Basic 工具箱上，单击 MSHFlexGrid 控件，然后将其拖到一个 Visual Basic 窗体上。

   -或者-

   在 Visual Basic 工具箱上，双击 MSHFlexGrid 控件将其拖到一个 Visual Basic 窗体上。

3. 在 Visual Basic “属性”窗口中，将 DataSource 属性设置为包含了希望被绑定到 Hierarchical FlexGrid 的 Command 对象的 DataEnvironment 对象。

   小心   如果 DataSource 被重新设置，Hierarchical FlexGrid 单元格中的所有用户定义的、修改过的数据都将被丢失。

4. 在 Visual Basic “属性”窗口中，将 DataMember 属性设置为 Data Environment 中的一个 Command 对象。如果希望在 Hierarchical FlexGrid 中查看分层结构的数据，那么必须指定 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。该代码将在下面的分步骤中提供。

   注意   要以编程方式设置数据源，工程中必须要有指向 Microsoft ActiveX 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 赋予 Hierarchical FlexGrid：

     Set MSHFlexGrid1.DataSource = Rs
     

4. 要查看 Hierarchical FlexGrid 中的数据，请在“运行”菜单中选择“开始”。

   -或者-

   按下 F5 键。