vb利用datareport做报表详解

《vb利用datareport做报表详解》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VB利用DataReport做报表首先介绍一下DataReport对象的几个常用属性。一是DataSource，用于设置一个数据源，通过该数据源，数据使用者被绑定到一个数据库；二是DataMember，从DataSource提供的几个数据成员中设置一个特定的数据成员；三是LeftMargin、RightMargin、TopMargin、BottomMargin等，用于指定报表的左右上下的页边距；四是Sections，即DataReport的报表标头、页标头、细节、页脚注、报表脚注5个区域，如果加上分组(可以有多层分组)，则增加一对区域

2、，即分组标头、分组脚注。其中DataSource一般是一个数据环境或是ADODB.Connection类型的变量，而DataMember则对应数据环境中的Command或是ADODB.RecordSet类型的变量，推荐使用数据环境及Command，页边界大家肯定都很清楚，下面我主要介绍以下Sections，这也是DataReport的精髓所在。Sections是一个集合，您可以为每一个Section指定名称，也可以用其缺省的索引，从上到下依次为1、2…。每个Section均有Height和Visible属性，您可以在一定条件下使一个S

3、ection不可见。在Section中可以放置各种报表控件，其中RptLabel、RptImage、RptShape和RptLine可以放在任意的Section中，用于输出各种文字、图形及表格线；RptTextBox只能放在细节中，一般用于绑定输出DataMemeber提供的数据字段；RptFunction只能被放置在分组注脚中,用于输出使用各种内置函数计算出的合计、最大值、最小值、平均值、记数等等。上述报表控件中常用公共属性有用于47控制位置及高度宽度的Top、Left、Height、Width和控制可见性的Visible；其中Rp

4、tTextBox还有DataField、DataMember、DataFormat及Font属性；其他属性不再多说。然后介绍一下我的使用经验。一是对想控制的报表控件按类型有规律的命名；二是用RptShape的矩形框做表格线框，比用RptLine画框省事多了，只有斜线才使用RptLine；三是报表标题及报表中的表头文字、日期及页码用RptLabel，其中Caption属性支持转义字符，%D为长格式日期，%d为短格式日期，%P为总页数，%p为当前页码；四是对固定报表在设计窗口直接将报表控件摆放到位，对于活报表，应首先考虑报表最大的情形，将

5、足够的控件分别放置在不同区域，位置大小可以不必深究，然后在报表输出前用VBA代码对所有控件的属性进行调整，包括位置、高度、宽度、字体、对齐方式、显示格式、可见性等等，相应的对Section也应根据情况调整其高度和可见性。最后用一个实例模板来说明其使用方法。连接数据库With数据环境.rsCommand名If.State=adStateOpenThen.Close.Source=SQL语句.Open打开想输出的数据库数据项以便输出EndWithWith报表名.DataSource=数据环境.DataMember=Command名这两行也

6、可固定设好而不必每次设置设置页表头部分(RpttLabel…为报表控件名).Sections(2).Controls("RptLabelPage").Caption="共%P页第%p页".Sections(2).Controls("RptLabelDate").Caption="打印日期：%D".Sections(3).Controls("RptLabel1").Left=…47…设置细节部分(RptShapeX、RptTextBoxX为报表控件名).Sections(3).Controls("RptShape1").Left=….S

7、ections(3).Controls("RptShape1").Top=….Sections(3).Controls("RptShape1").Height=….Sections(3).Controls("RptShape1").Width=….Sections(3).Controls("RptTextBox1").DataMember=Command名.Sections(3).Controls("RptTextBox1").DataField=字段1.Sections(3).Controls("RptTextBox1").Font

8、.Name=…….Sections(3).Controls("RptShapeN").Visible=False.Sections(3).Controls("RptTextBoxN").Visible=False….Se