.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
[水晶报表]创建不受数据库限制的报表(2)

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

新建一个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
程序有完整注释,你可以当作开发模板使用 :)




相关文章

相关软件