vb报表分组.pdf

《vb报表分组.pdf》由会员分享，可在线阅读，更多相关《vb报表分组.pdf（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

2、ject(ADO)连接数据库，解决问题的关键是使用 Data Shaping 的驱动程序代替通常使用的各种 OLE DB 的驱动程序，它的用法跟使用其它驱动程序类似，对于已有的数据访问代码不用作任何修改，只是简单的修改一下连接代码就可以支持 Data Shaping 了。具体做法如下：将连接参数中的 Provider 设置成MSDataShape 即 ConnectionString =Provider=MSDataShape;Data Provider=通常的驱动程序;Data Source=;其它的参数 然后就可以和平常一样进行数据连接和各种数据操作了。如此连接的数据源出了具有用普通方法的

3、所有特性以外，同时具有了我们即将使用的 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，在报表

4、的分组部分可以直接且只能使用分组字段 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.Sec

5、tions(PageContent).Controls(Text2).DataMember=新的名称 2 MyReport.Sections(PageContent).Controls(Text2).DataField=”字段 1”按照以上的方法就可以对带有分组的报表进行动态数据绑定了，这对于那些操作临时表的情况十分有用，因为临时表是无法用设计器设计分组的。关于 Data Shaping 的详细介绍可以去参考 MSDN 在线资源，在一般情况下我们可以用设计器去设计一个类似的结构，然后查看 VB 设计器生成的代码，这样就可以套用我们自己表了。Dim cn As ADODB.Connection

6、Dim rs As ADODB.Recordset Dim Sql,strSql As String 连接数据库(Access)Set cn=New ADODB.Connection With cn .Provider=MSDataShape.1 一定要这句 .Open Data Provider=Microsoft.Jet.OLEDB.4.0;&_ Data Source=&App.Path&db1.mdb;&_ Persist Security Info=False End With 设置 RptTextBox 控件属性 分组标头，注意不要设置其 DataMember 属性 RptGrou

7、p.Sections(Section6).Controls(text1).DataField=编号 细节标头,其中“miCmd”是分组名称 RptGroup.Sections(Section1).Controls(text2).DataField=编号 RptGroup.Sections(Section1).Controls(text3).DataField=名字 RptGroup.Sections(Section1).Controls(text3).DataMember=miCmd 查询表：Sql=SELECT*FROM tb 打开查询记录集 strSql=SHAPE&Sql&_ AS miCmd COMPUTE miCmd BY 编号 Set rs=New ADODB.Recordset rs.Open strSql,cn,adOpenStatic,adLockReadOnly Set Me.DataSource=rs