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

eadgiyuh

eadgiyuh

2016-01-29 12:38

在vb中动态加载水晶报表rpt文件的方法,在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
这样就可以实现程序与报表的逻辑分离。如果用报表设计器。每次更改报表格式都需要编译程序。客户甚至可以自己更改报表格式。
展开更多 50%)
分享

猜你喜欢

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

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

在VB6.0中实现动态统计报表

编程语言 网络编程
在VB6.0中实现动态统计报表

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

VC++ 水晶报表

编程语言 网络编程
VC++ 水晶报表

水晶报表4.6的使用示例

电脑网络
水晶报表4.6的使用示例

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

[水晶报表部署系列之一]轻松搞定水晶报表9.2打包

电脑网络
[水晶报表部署系列之一]轻松搞定水晶报表9.2打包

水晶报表中子报表的数据绑定问题

电脑网络
水晶报表中子报表的数据绑定问题

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

JSP程序员成长之路之二

JSP程序员成长之路之二

常见的loading条制作方法

常见的loading条制作方法
下拉加载更多内容 ↓