[水晶报表]创建不受数据库限制的报表(2)

新建一个vb工程，增加水晶报表设计及运行组件的引用，在界面上增加一个Viewer控件。



运行的结果就是把在(1)中所做的模板加载数据后显示出来



核心代码：

'--------------------------------------------------

'创建报表

'--------------------------------------------------

'加载报表模板

Set objCRReport = objCRApp.OpenReport(App.Path & "\Report1.rpt", 1)

'加载报表字段定义文件

Set props = objCRReport.Database.Tables(1).ConnectionProperties

For Each prop In props

If InStr(prop.Name, "Field Definition File") > 0 Then

prop.Value = App.Path & "\Users.ttx"

Exit For

End If

Next

Set props = Nothing

'清除报表中保持的数据

objCRReport.DiscardSavedData

'赋给报表数据

objCRReport.Database.SetDataSource rst

请在此处下载完整的代码(VB+水晶报表9.2)程序有完整注释，你可以当作开发模板使用 :)

2004年12月15日更新,增加报表参数演示,禁止参数界面弹出

2005年4月25日更新,增加打印时选择打印机功能

/article/4662153.html