.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开发
在vb中动态加载水晶报表rpt文件的方法

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

     这个问题在很多论坛里边都有问到。但是一直没找到满意的答案。下边写出一个解决办法
    Dim sql As String
    Dim rstLiuShui As New ADODB.Recordset
    Dim Rpt As New CRAXDDRT.Report
    Dim PrintApp As New CRAXDDRT.Application
    If Option2.Value = True Then
        sql = "select * from n_ihbill where datediff(d,日期,'" & Format(DTPicker1.Value, "yyyy-MM-dd") & "')=0 and 住院号=" & cbopatient.ItemData(cbopatient.ListIndex)
    Else
        sql = "select * from n_ihbill where datediff(d,日期,'" & Format(DTPicker1.Value, "yyyy-MM-dd") & "')=0"
    End If
    Debug.Print sql
   
    rstLiuShui.Open sql, adoconn, adOpenForwardOnly, adLockReadOnly
   
    If rstLiuShui.EOF And rstLiuShui.BOF Then
        MsgBox "没有可用数据!", vbInformation
        Exit Sub
    End If

    Set Rpt = PrintApp.OpenReport("cryliushui.rpt")
    Rpt.Database.SetDataSource rstLiuShui

    Call viewReport(Rpt, "", "打印流水")
    rstLiuShui.Close
    Set rstLiuShui = Nothing
这样就可以实现程序与报表的逻辑分离。如果用报表设计器。每次更改报表格式都需要编译程序。客户甚至可以自己更改报表格式。




相关文章

相关软件