显示层次结构记录集
MSHFlexGrid 控件的一个主要特性是它能显示层次结构记录集—以层次结构方式显示的关系表。创建层次结构记录集的最容易的方法是使用数据环境设计器并把 MSHFlexGrid 控件的 DataSource 属性赋给数据环境。您也可以用 Shape 命令作为 ADO Data Control 的 RecordSource 在代码中创建层次结构记录,如下面的示例:
' 创建 ConnectionString.
Dim strCn As String
strCn = "Provider=MSDataShape.1;Data Source=Nwind;" & _
"Connect Timeout=15;Data Provider=MSDASQL"
' 创建 Shape 命令.
Dim strSh As String
strSh = "SHAPE {SELECT * FROM `Customers`} AS Customers " & _
"APPEND ({SELECT * FROM `Orders`} AS Orders RELATE " & _
"CustomerID TO CustomerID) AS Orders"
' 把 ConnectionString 赋给 ADO Data Control 的
' ConnectionString 属性, Shape 命令以及
' 控件的 RecordSource 属性.
With Adodc1
.ConnectionString = strCn
.RecordSource = strSh
End With
' 把 HflexGrid 控件的 DataSource 属性设置到
' ADO Data 控件。
Set HFlexGrid1.DataSource = Adodc1
详细信息 要查找有关分层记录集的更多信息,请参阅 Hierarchical Cursors and Data Shaping Summary. Shape 命令的详细信息可参阅 Shape Commands in General.
发行注意 在应用程序中使用 MSHFlexGrid 控件之前,必须将 MSHFlxGrd.ocx 文件添加到工程中。为了将该文件自动包括到工程中,可以把它放到自动装载文件中。当发行应用程序时,应该将 MSHFlxGrd.ocx 文件安装到用户的 Microsoft Windows 的 System 子目录下。关于将 ActiveX 控件添加到工程中的详细信息,请参阅《Visual Basic程序员指南》中的“标准 ActiveX 控件”。