HierarchicalFlexGrid控件
访问HierarchicalFlexGrid控件
要在VisualBasic中安装并访问HierarchicalFlexGrid控件，请使用以下步骤。
要安装和访问HierarchicalFlexGrid控件
1.在“工程”菜单中，选择“部件”。出现“部件”对话框。
2.在“控件”选项卡中，选择“MicrosoftHierarchicalFlexGridControl6.0”，然后单击“确定”。MSHFlexGrid控件被添加到VisualBasic工具箱中。
3.在VisualBasic工具箱中，单击MSHFlexGrid控件，然后将其拖到一个VisualBasic窗体上。
-或者-
在VisualBasic工具箱上，双击MSHFlexGrid控件，将其添加到窗体上。
将数据绑定到HierarchicalFlexGrid
在开始使用它的功能之前，必须先将数据绑定到HierarchicalFlexGrid。要将数据绑定到控件，可以使用VisualBasic新的DataBindingManager，或者通过编程实现。
在将HierarchicalFlexGrid绑定到数据源之后，HierarchicalFlexGrid在设计时屏幕显示是一个空白列和一个空白行。字段和带区信息不是自动提取的（要获得此类信息，请参阅取得结构信息）。如果HierarchicalFlexGrid在没有字段和带区信息的情况下运行，那么在显示数据的时候将使用缺省的属性设置。就是说，如果HierarchicalFlexGrid被绑定到一个分层结构的Command，那么显示出的数据带区将是水平排列的，每个带区中包含一列，分别对应于Recordset中的每一个字段。
绑定到数据源的HierarchicalFlexGrid
使用VisualBasicDataBindingManager将数据绑定到HierarchicalFlexGrid
本节说明如何使用VisualBasicDataBindingManager将数据绑定到HierarchicalFlexGrid。DataBindingManager提供了一种便于进行数据绑定的用户界面。
使用VisualBasicDataBindingManager设置DataSource
1.为HierarchicalFlexGrid创建数据源。数据源可以是DataEnvironment对象或者ActiveXDataControl，或者是一种新的VisualBasic功能。在本例中，将数据源创建为DataEnvironment对象。
2.在VisualBasic工具箱上，单击MSHFlexGrid控件，然后将其拖到一个VisualBasic窗体上。
-或者-
在VisualBasic工具箱上，双击MSHFlexGrid控件将其拖到一个VisualBasic窗体上。
3.在VisualBasic“属性”窗口中，将DataSource属性设置为包含了希望被绑定到HierarchicalFlexGrid的Command对象的DataEnvironment对象。
警告如果DataSource被重新设置，HierarchicalFlexGrid单元格中的所有用户定义的、修改过的数据都将被丢失。4.在VisualBasic“属性”窗口中，将DataMember属性设置为DataEnvironment中的一个Command对象。如果希望在HierarchicalFlexGrid中查看分层结构的数据，那么必须指定Command分层结构中最顶部的父Command对象作为DataMember。
5.要查看HierarchicalFlexGrid中的数据，请在“运行”菜单中选择“开始”。
-或者-
按下F5键。
以编程方式将数据绑定到HierarchicalFlexGrid
本节描述如何以编程方式将数据绑定到HierarchicalFlexGrid。要以编程方式设置DataSource
1.在VisualBasic工具箱中，双击MSHFlexGrid控件，将其放在一个VisualBasic窗体上。
2.右击该HierarchicalFlexGrid，然后从快捷菜单中选择“查看代码”。出现“代码编辑器”窗口。
3.在Form_Load事件中，添加代码来创建一个ADORecordset并将其赋予HierarchicalFlexGrid。该代码将在下面的分步骤中提供。
注意要以编程方式设置数据源，工程中必须要有指向MicrosoftActiveXDataObjects的引用：在“工程”菜单中，选择“引用”，然后选择“MicrosoftActiveXDataObjects2.0Library”。
插入下列代码，创建一个ADOConnection和Recordset，请根据实际情况替换其中的注释（例如，将<myDataSource>替换为数据源的实际名称）：
DIMCnAsNewConnection,RsAsNewRecordset
'你需要将<myDataSource>替换为你的系统
'中的一个有效的DSN。
Cn.ConnectionString="DSN=<myDataSource>"
'使用下列代码用于SHAPECommands
Cn.Provider="MSDataShape"
Cn.CursorLocation=adUseNone
'第二种办法，对于SQLCommands可使用下列代码
Cn.CursorLocation=adUseNone
Cn.Open
'需要为上面创建的Connection的Recordsets指定
'有效的数据源
Rs.Source="<validSQLSELECTcommand>"
'现在将Command与Connection关联
'起来并执行它们。
SetRs.ActiveConnection=Cn
Rs.Open
插入下面的代码，将Rs中打开的Recordset赋予HierarchicalFlexGrid：
SetMSHFlexGrid1.DataSource=Rs
4.要查看HierarchicalFlexGrid中的数据，请在“运行”菜单中选择“开始”。
-或者-
按下F5键。
