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

CrystalReportViewer

墨江網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)公司！從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)公司等網(wǎng)站項(xiàng)目制作，到程序開發(fā)，運(yùn)營(yíng)維護(hù)。創(chuàng)新互聯(lián)公司公司2013年成立到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)公司。

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 '該語句的賦值將在后面被修改

　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.net報(bào)表怎么做 具體步驟

可以用水晶報(bào)表設(shè)計(jì)報(bào)表，水晶報(bào)表你要自學(xué)，在這里是說不清的，我對(duì)水晶報(bào)表有一點(diǎn)的了解功能很強(qiáng)大。

VB如何建立報(bào)表

首先引用Crystal Reports 9 ActiveX Designer Run Time Library

再添加Crystal Repotr View Control 9控件

在工程資源管理器中右鍵－－添加－－Crystal Reports 9 新建一個(gè)Crystal Reports9報(bào)表

設(shè)置數(shù)據(jù)源后將要顯示的字段加入報(bào)表內(nèi)。

窗體代碼部分：

Dim m_Report As New CrystalReport1 \'(這個(gè)CrystalReport1是你建立的報(bào)表的名稱)

Dim m_Connection As ADODB.Connection \'(建立一個(gè)ADO連接)

Dim adoRS As ADODB.Recordset

Private Sub Form_Load()

Dim SQL As String

Dim strConnect As String

\' Create and bind the ADO Recordset object

Set m_Connection = New ADODB.Connection

Set adoRS = New ADODB.Recordset

\' Open the connection

strConnect = "你的數(shù)據(jù)庫(kù)連接字符串"

m_Connection.Open strConnect

SQL = "查詢語句"

adoRS.Open SQL, m_Connection, adOpenDynamic, adLockBatchOptimistic

m_Report.Database.SetDataSource adoRS\'(動(dòng)態(tài)設(shè)置報(bào)表數(shù)據(jù)源)

Screen.MousePointer = vbHourglass

CRViewer1.ReportSource = m_Report

CRViewer1.ViewReport \'(顯示報(bào)表)

Screen.MousePointer = vbDefault

End Sub

此代碼在VB6+SP5+Windows2000 Server下調(diào)試通過

以上代碼參考水晶報(bào)表9中文版

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

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

某公司盡力需要了解公司在全國(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)表

打開 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

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

vb報(bào)表怎么做?是控件還是用其它軟件?它們有何區(qū)別?

在VB中，右鍵點(diǎn)擊右面工程視圖中的工程圖標(biāo)，點(diǎn)選其中的添加-Data

Environment(

即建立一個(gè)數(shù)據(jù)環(huán)境)，再點(diǎn)添加-Data

Report

(即建立一個(gè)報(bào)表)。一般來說VB自帶的報(bào)表已能滿足使用要求，如果需要功能更加強(qiáng)大的報(bào)表控件，可以選擇水晶報(bào)表控件CrystalReport或TrueDBGrid。