Dim crt As New cryreport.cryreport1
'設置數據庫名稱
Dim DBName As String="db"
'數據庫登錄用戶名
Dim DBUserName As String="sa"
'數據庫登錄密碼
Dim DbUserPwd As String="sa"
'需要傳入的參數名稱
Dim item_no As String="@item_no"
'傳入的參數編號
Dim item_no1 As String="503020-000326"
'第二個參數
Dim loc As String="@loc12"
Dim loc12 As String="SZBC"
'增加參數信息
crt.AddParameter(item_no,item_no1)
crt.AddParameter(loc,loc12)
設置數據庫登錄信息
crt.DataBaseName=DBName
crt.ServerName="DATABASE"
crt.User=DBUserName
crt.Pwd=DBUserPwd
'如果不是用存儲過程而是用表，請設置SQL語句
crt.sql="select top 1000 * from cpcfa
'設置數據庫連接串信息
'crt.conn="data source=" & ServerName & ";initial catalog=" & DBName & ";user id =" & DBUserName & ";password=" & DBUserPwd
'crt.sql=FileSys.ReadAllText("C:\Documents and Settings\Administrator\My Documents\SQL Server Management Studio\Projects\20130731.sql")
'設置報表文件路徑
crt.filepath="D:\EPN2\Reporting\ICRPIO.rpt"
'打開報表預覽對話框

crt.ShowDialog()

?

需要用到的資源：http://download.csdn.net/detail/sky_cat/6000827

詳細請見我的論壇帖子：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=38616

總結

以上是生活随笔為你收集整理的foxtable水晶报表操作的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。