[水晶报表]创建不受数据库限制的报表(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）,解压缩密码：WWW.FACESUN.CN程序有完整注释，你可以当作开发模板使用 :)