MSHFlexGrid 层次打印

 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