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

最新推荐文章于 2023-02-23 17:03:08 发布

原创最新推荐文章于 2023-02-23 17:03:08 发布 · 1.1w 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#报表 #数据库 #vb #each #file

水晶报表及OWC 专栏收录该内容

16 篇文章

订阅专栏

博客介绍了使用VB开发报表程序的方法，包括新建VB工程、引用水晶报表设计及运行组件、添加Viewer控件，还给出了加载报表模板、字段定义文件等核心代码，同时提到可下载完整代码作为开发模板，2004年12月更新增加报表参数演示。

新建一个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