如何用VB.NET做水晶報(bào)表?

CrystalReportViewer

站在用戶的角度思考問(wèn)題，與客戶深入溝通，找到肥西網(wǎng)站設(shè)計(jì)與肥西網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、國(guó)際域名空間、網(wǎng)頁(yè)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋肥西地區(qū)。

dataset 定義數(shù)據(jù)源

.rpt 文件描述具體報(bào)表樣式

再加一個(gè)調(diào)用報(bào)表的FORM，就可以實(shí)現(xiàn)簡(jiǎn)單的報(bào)表功能

Option Explicit

dim Report as New Cystal1

Private Sub Form_Load()

　Screen.MousePointer = vbHourglass

　'調(diào)用水晶報(bào)表時(shí)置鼠標(biāo)為沙漏狀 CRViewer91.ReportSource = Report '該語(yǔ)句的賦值將在后面被修改

　CRViewer91.ViewReport

　Screen.MousePointer = vbDefault '調(diào)用水晶報(bào)表完成后置鼠標(biāo)為默認(rèn)形狀

End Sub

Private Sub Form_Resize()

　CRViewer91.Top = 0

　CRViewer91.Left = 0

　CRViewer91.Height = ScaleHeight

　CRViewer91.Width = ScaleWidth

End Sub

vb中怎么做報(bào)表？

核心代碼：Requery方法!

也可以直接使用ADODB.Recordset!不使用DataEnvironment!例:

...

public adoRecordsetX as ADODB.Recordset

...

Private Sub DataReport_Initialize()

adoRecordsetX.Requery

Set DataReport1.DataSource = adoRecordsetX '設(shè)置 DataReport 的數(shù)據(jù)源

...

'綁定某字段

Me.Sections.Item("Section1").Controls.Item("text1").DataField=adoRecordsetX.Fields.Item(0).Name

...

End Sub

wuxiaoqiang的意見(jiàn)：

在你們有關(guān)上述問(wèn)題的回答，我想再增加一種更簡(jiǎn)單的解決辦法。

1.在datareport 報(bào)表中設(shè)置datamember和datasource為空。

2.將以前綁定的RptTextBox的datamember設(shè)為空，保留原來(lái)的datafield.

3.在打印操作中增加以下代碼：

Dim db As Connection

Set db = New Connection

db.CursorLocation = adUseClient

db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.path + "\finance.mdb" + ";"

Set tb = New Recordset

tb.Open "select * from dailyfeeprint", db, adOpenStatic, adLockOptimistic

With tb

.AddNew

![工號(hào)] = Combo1(0).Text

![姓名] = txtFields(0).Text

![交費(fèi)日期] = txtFields(1).Text

.........

.Update

End With

Set data1.Recordset = tb

Set datareport1.DataSource = data1

datareport1.Show

datareport1.PrintReport

VB.net中如何制作水晶報(bào)表？

這個(gè)專業(yè)我也學(xué)得不是很好，用書(shū)上得例子吧。

某公司盡力需要了解公司在全國(guó)各地得銷售情況，設(shè)計(jì)一個(gè)水晶報(bào)表。統(tǒng)計(jì)個(gè)地區(qū)得銷售總額和全國(guó)總額

準(zhǔn)備工作

用 SQL server 2000 創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)company 在該數(shù)據(jù)庫(kù)中創(chuàng)建一個(gè)表Sales.用于儲(chǔ)存區(qū)域銷售數(shù)據(jù)

在表Sales 中添加若干條記錄

設(shè)計(jì)報(bào)表

打開(kāi) Visual Studio.NET創(chuàng)建名為 Salesreport得 WINDOWS應(yīng)用程序 將Form1.cs 名更改為 frmSalesReport.cs

frmSalesReport窗體得屬性設(shè)置里。 吧 frmSalesReport.cs得Text屬性更改為"區(qū)域銷售報(bào)表"

把NAME屬性更改為frmSalesReport。

在 VisualStudio.NET 菜單中選擇 項(xiàng)目添加新項(xiàng)。在"添加新項(xiàng)"窗口得“類別”區(qū)域擴(kuò)展 “本地項(xiàng)目項(xiàng)”，選擇數(shù)據(jù)，在"模板"區(qū)域選擇"數(shù)據(jù)集" 在"名稱"那將Dataset1.xsd改名 SalesDetaset.xsd

單擊"打開(kāi)" 將生成一個(gè)新得結(jié)構(gòu)文件 SalesDataset.xsd 該文件將顯示在 ADO.NET數(shù)據(jù)集設(shè)計(jì)器中。

網(wǎng)站標(biāo)題：vb.net怎么做報(bào)表,vb 制作報(bào)表并打印
文章來(lái)源：http://chinadenli.net/article15/dsioegi.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供面包屑導(dǎo)航、網(wǎng)站收錄、網(wǎng)站維護(hù)、外貿(mào)網(wǎng)站建設(shè)、外貿(mào)建站、App設(shè)計(jì)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)