vb 之数据报表使用技巧 .docVIP

vb 6之数据报表使用技巧 　　vb 6.0专业版和企业版中的数据报表设计器与数据环境设计器是数据访问的新内容。msdn 所提供的prjnwind.vbp 示例工程在设计阶段（design time）就已将dataenvironment设为datareport的数据源，并将打印格式也设好，这种做法不太利于程序的通用性。当然，我们也可以对dataenvironment编程，在运行阶段（run time）控制数据源。其实，datareport可以完全脱离dataenvironment，而打印由动态sql生成的recordset。 　　实现代码如下： 　　private sub datareport_initialize() 　 … dim adoconnectionx as new adodb.connection dim adorecordsetx as new adodb.recordset 　　adoconnectionx.open″provider=microsoft.jet.oledb.3.51;persist security 　　info=false;data source=″ ＆ app.path ＆ ″\xxx.mdb″ 　　adorecordsetx.open ″select ＊ from表名″, adoconnectionx 　　set datareportx.datasource = adorecordsetx 　　′设置 datareport 的数据源 　　 … 　　由vb 6 所提供的datareport.sections.item(index).controls.item(index)...这样的语法不太利于编程控制数据报表设计器的专用控件的位置、大小等各种属性。但是，我们可以编程根据控件所在区域（section）和所属类别等将它们分成若干集合（collection），然后通过控制集合的元素来控制其所代表的控件。当然，在设计阶段我们要将足够多的控件绘制到datareport上备用。实现的主要部分代码如下： 　　… 　　′根据控件所在区域（section）和所属类别分集合（collection） 　　dim rhsec4_rptlbl_collection as new collection ′页标头(pageheader)区域 shape(rptshape) 控件集合 　　dim phsec2_rptshp_collection as new collection　　′细节(detail)区域 textbox(rpttextbox) 控件集合 　　dim dsec1_rpttxt_collection as new collection 　　dim ctl as object 　　… 　　for each ctl in me.sections.item(″section1″).controls ′section1 　　 select case typename(ctl) 　　 case ″rptlabel″ 　　dsec1_rptlbl_collection.add ctl 　　 ctl.caption = ″ 　　 case ″rptshape″ 　　dsec1_rptshp_collection.add ctl 　　 case ″rpttextbox″ 　　ctl.datafield = adorecordset.fields.item(0).name ′先将所有textbox(rpttextbox) 控件绑定到某一字段，否则报错！ 　　dsec1_rpttxt_collection.add ctl 　　end select 　　ctl.visible = false 　　next ctl 　　… 　　′以下通过控制集合的元素来准确有效的控制这些元素所代表的控件。 　　dim i as integer 　　dim bfmt as stddataformat 　　′定义布尔(boolean)型字段的数据格式 　　set bfmt = new stddataformat 　　bfmt.type = fmtboolean 　　bfmt.truevalue = ″是″ 　　bfmt.falsevalue = ″否″ 　　for i = 0 to 5 　　′只打印前几个字段，shape(rptshape) 控件用来显示单元格，页标头(pageheader)区域：显示列表头(caption) 　　with phsec2—rptshp—collection.item(i ＋ 1) ′单元格 　　 .visible = tr