在VB中使用动态分组报表

在使用VB自带的报表过程中，我遇到了处理动态分组报表的问题。一般要使用分组报表要在VB中建立一个DataEnvironment，并在其中建立数据库联接和命令对象，在命令对象中设置分组字段，最后将这些分组字段加入到报表中。但是这种方法只能适应静态的数据源，当遇到数据表中的字段不固定，或数据表不能预先知道的情况时，这种方法就无能为力了。经过查阅各种资料，发现我们可以通过使用Data Shaping来动态创建分组信息。下面就详细介绍一下如何动态创建分组信息，并应用于VB报表。

       要使用Data Shaping，程序必须使用ActiveX Data Object (ADO)连接数据库，解决问题的关键是使用Data Shaping的驱动程序代替通常使用的各种OLE DB的驱动程序，它的用法跟使用其它驱动程序类似，对于已有的数据访问代码不用作任何修改，只是简单的修改一下连接代码就可以支持Data Shaping了。具体做法如下：

       将连接参数中的   

Provider设置成"MSDataShape" 即

ConnectionString  = "Provider=MSDataShape;Data Provider=通常的驱动程序;Data Source=…;其它的参数"

然后就可以和平常一样进行数据连接和各种数据操作了。如此连接的数据源出了具有用普通方法的所有特性以外，同时具有了我们即将使用的Data Shaping功能，下面就可以建立自己的分组信息了：

将用于打开记录集的SQL语句写成如下形式：

 

SHAPE {select 字段1, 字段2, 字段3,…, 字段n from 现有的表} AS 新的名称1

COMPUTE新的名称1 AS新的名称2 BY 分组字段1, 分组字段2,…, 分组字段n

 

上面的语句中，需要注意的是分组字段必须同时在Select 中出现，否则运行时将报错。用该SQL语句打开的记录集中包含若干个字段，它们是：新的名称2、分组字段1-n。在使用时，将打开的记录集rs作为报表的DataSource，在报表的分组部分可以直接且只能使用分组字段1-n以及各种统计函数，在正文中使用字段1-n时，应将对应编辑框的DataMenber设置为”新的名称2”，具体请参考以下语句

MyReport.Sections("GroupHeader").Controls("Text1").DataField =”分组字段1”

 

MyReport.Sections("GroupFooter").Controls("Function1").DataMember = "新的名称2"

MyReport.Sections("GroupFooter").Controls("Function1").DataField = "字段1"

 

MyReport.Sections("PageContent").Controls("Text2").DataMember = "新的名称2"

MyReport.Sections("PageContent").Controls("Text2").DataField =”字段1”

 

按照以上的方法就可以对带有分组的报表进行动态数据绑定了，这对于那些操作临时表的情况十分有用，因为临时表是无法用设计器设计分组的。

关于Data Shaping的详细介绍可以去参考MSDN在线资源，在一般情况下我们可以用设计器去设计一个类似的结构，然后查看VB设计器生成的代码，这样就可以套用我们自己表了。

……