在vb中动态加载水晶报表rpt文件的方法

     这个问题在很多论坛里边都有问到。但是一直没找到满意的答案。下边写出一个解决办法
    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
这样就可以实现程序与报表的逻辑分离。如果用报表设计器。每次更改报表格式都需要编译程序。客户甚至可以自己更改报表格式。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18