新建一个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),解压缩密码:WWW.FACESUN.CN 程序有完整注释,你可以当作开发模板使用 :) 
|