WebForm与WinForm中水晶报表动态布局的区别

• 关 键 词：
• window
• 水晶报表
• word
• 数据库

曾经写过一篇《水晶报表中的一点动态技巧 》，其中讲了如何在运行时设定TextObject对象的文本内容。后来在实践的过程中，也慢慢地开始对报表上的各种对象的位置做运行时控制了，比如，WinForm中，报表rpt的section3中有名为txtKs的TextObject，那么可以用下面的代码使其位置下移400个像素：

• mm player给你真正的动态壁纸
• QQ动态表情自己做(PS+IR)
• 办公小绝招 构造Excel动态图表
• 动态表头 Excel中动态表头的制作
• Excel中动态表头的制作方法
• 在单文档程序中动态切换多个窗体
• Sonic Foundry Vegas 4.0新手宝典
• 在PB中动态修改SQL语句
• 动态语言面面观
• ASP.NET中动态控制RDLC报表

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

【深 度 阅 读】 相 关 文 章

• 用DW插件制作动态下拉菜单
• 在VB中动态加载ODBC数据源
• VC制作动态真彩工具栏
• NetBeans 6新版本 加入Ruby动态语言支持