曾经写过一篇《水晶报表中的一点动态技巧 》，其中讲了如何在运行时设定TextObject对象的文本内容。后来在实践的过程中，也慢慢地开始对报表上的各种对象的位置做运行时控制了，比如，WinForm中，报表rpt的section3中有名为txtKs的TextObject，那么可以用下面的代码使其位置下移400个像素：
![]()
CType(rpt.Section3.ReportObjects("txtKs"), CrystalDecisions.CrystalReports.Engine.TextObject).Top = CType(rpt.Section3.ReportObjects("txtKs"), CrystalDecisions.CrystalReports.Engine.TextObject).Top + 400
通过这种办法，可以任意改变对象的位置、大小。我做的一个研究生复试通知书的报表就是这样实现的。以前是分为计划内和计划外两个报表做的，但是实际上两种报表的内容差别不大，只是计划外的报表要多一部分内容，于是后来改为用一张报表实现，根据考生的类别，对报表上的对象的位置、大小等进行控制，实现因人而异的复试通知书。
上面这个例子是在WinForm下的，若要实现让考生从Web上登录，然后自行自己的复试通知书，还需要一点改变。比如这句：
![]()
CType(rpt.Section3.ReportObjects("fldAdd"), CrystalDecisions.CrystalReports.Engine.FieldObject).Top = CType(rpt.Section3.ReportObjects("fldAdd"), CrystalDecisions.CrystalReports.Engine.FieldObject).Top + 1200
调整的是FieldObject对象的属性。然而，在WebForm下，形如rpt.Section3.ReportObjects("fldAdd")的写法在WebForm下行不通，主要有两点：
（1）通过断点调试，发现WebForm下无法找到FieldObject类型的对象，估计是由于WinForm和WebForm下的报表加载机制不一样的原因。解决办法是为所有的FieldObject（也就是要显示的数据库字段）都准备一个对应的TextObject对象，然后把相应的字段拖拽到该TextObject中，在运行时获取相应的TextObject对象。然而，对于报表中自带的域，比如日期域，还是可以直接获得的。
（2）WinForm下或许报表对象的方法为rpt.Section3.ReportObjects("fldAdd")，而WebForm下应该是rptDoc.ReportDefinition.Sections(2).ReportObjects("txtAddVal")，即通过索引值定位Section，而不是WinForm下的那样。其中的txtAddVal中嵌套的就是WinForm中对应的fldAdd。
以上两点参考下面这两句：
![]()
'调整日期域的位置
![]()
CType(rptDoc.ReportDefinition.Sections(2).ReportObjects("fldDate"), CrystalDecisions.CrystalReports.Engine.FieldObject).Top = CType(rptDoc.ReportDefinition.Sections(2).ReportObjects("fldDate"), CrystalDecisions.CrystalReports.Engine.FieldObject).Top + 2800
![]()
'调整地址域的位置
![]()
CType(rptDoc.ReportDefinition.Sections(2).ReportObjects("txtAddVal"), CrystalDecisions.CrystalReports.Engine.TextObject).Top = CType(rptDoc.ReportDefinition.Sections(2).ReportObjects("txtAddVal"), CrystalDecisions.CrystalReports.Engine.TextObject).Top + 1200
【责编:Ken】
--------------------next---------------------
阅读(607) | 评论(0) | 转发(0) |
