当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 水晶报表4.6的使用示例

ASP.NET
Asp.net利用JQuery弹出层加载数据代码
asp.net dataview做无限极分类的又一用法
asp.net ckeditor编辑器的使用方法
告别ADO.NET实现应用系统无缝切换的烦恼(总结篇)
asp.net 实现动态显示当前时间(不用javascript不考虑开销)
.net动态显示当前时间(客户端javascript)
asp.net 结合YUI 3.0小示例
asp.net 取消缓存相关问题说明
asp.net 计划任务管理程序实现,多线程任务加载
ASP.NET 跨页面传值方法
asp.net中url地址传送中文参数时的两种解决方案
Asp.net 菜单控件简洁版
asp.net jQuery Ajax用户登录功能的实现
asp.net SharpZipLib的压缩与解压问题
asp.net url重写后页面回传问题
asp.net与Discuz!NT整合集成实例教程
Discuz!NT 3与asp.net 整合的实例教程
测试控制台使用方法
.net 动态标题实现方法
asp.net *.ashx类型的文件使用说明

ASP.NET 中的 水晶报表4.6的使用示例


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 225 ::
收藏到网摘: n/a


Private Sub Command1_Click(Index As Integer)
With cr1 'cr1为报表控件
.PrinterDriver = Printer.DeviceName
.DiscardSavedData = True
'-------------------------------------------------
'连接方式一
.Connect = "DSN = drugdb;UID =sa;PWD =;"
'连接方式二
.Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=evaluate;Data Source=SAMUNCLE"]
'连接方式三
Dim adocon As ADODB.Connection
Set adocon = New ADODB.Connection
adocon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=drugdb;Data Source=SAMUNCLE"
adocon.ConnectionTimeout = 120
adocon.Open
'-------------------------------------------------
.Destination = crptToWindow '预览
.ReportSource = crptReport
.WindowHeight = Screen.Height
.WindowWidth = Screen.Width
.ReportFileName = App.Path + "\crystaltest47.rpt"
.WindowTitle = "标题"

.WindowState = crptMaximized '窗口最大化
.WindowLeft = 0
.WindowTop = 0
.Formulas(0) = ""
.Formulas(1) = ""
.Formulas(0) = "这是第一个参数!"
.Formulas(1) = "这是第二个参数!" & Chr(13) & Chr(10) & "我回行了"
.FetchSelectionFormula
.Action = 1
End With