VB.net中如何制作水晶報表？

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

漳平網站建設公司成都創(chuàng)新互聯(lián)公司,漳平網站設計制作，有大型網站制作公司豐富經驗。已為漳平1000多家提供企業(yè)網站建設服務。企業(yè)網站搭建\成都外貿網站建設要多少錢，請找那個售后服務好的漳平做網站的公司定做！

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

準備工作

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

在表Sales 中添加若干條記錄

設計報表

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

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

把NAME屬性更改為frmSalesReport。

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

單擊"打開" 將生成一個新得結構文件 SalesDataset.xsd 該文件將顯示在 ADO.NET數據集設計器中。

如何用VB.NET做水晶報表?

CrystalReportViewer

dataset 定義數據源

.rpt 文件描述具體報表樣式

再加一個調用報表的FORM，就可以實現(xiàn)簡單的報表功能

Option Explicit

dim Report as New Cystal1

Private Sub Form_Load()

　Screen.MousePointer = vbHourglass

　'調用水晶報表時置鼠標為沙漏狀 CRViewer91.ReportSource = Report '該語句的賦值將在后面被修改

　CRViewer91.ViewReport

　Screen.MousePointer = vbDefault '調用水晶報表完成后置鼠標為默認形狀

End Sub

Private Sub Form_Resize()

　CRViewer91.Top = 0

　CRViewer91.Left = 0

　CRViewer91.Height = ScaleHeight

　CRViewer91.Width = ScaleWidth

End Sub

vb中怎么用crystalreport

vb6中水晶報表(crystal report 4.6)的使用經驗

水晶報表(Crystal Report 4.6)只支持Access97格式的數據庫, 所以,先在Access2000格式中設置好表與表的關

系,再把表轉換到97格式,

在水晶報表中調入97數據庫后,在Links中自動會找出表間的關系.

水晶報表在VB的安裝盤中已自帶了. 路徑: COMMONTOOLSVBCRYSREPTCRYSTL32.EXE

系列號: 1231467890

安裝后,運行路徑: Program FilesMicrosoft Visual StudioCommoncrw32.exe

VB6中運用晶報表的理由是: 它支持圖相(Binary型)字段(BLOB二進制大型對象)

運用水晶報表的步驟:

先進入VB的菜單欄: 外接程序--報表設計器 自動進入水晶報表, 設計好報表,存成報表文件,

如SQL.rpt

再在VB工程中引入部件Crystal Report Control 4.6

如果是Access數據庫, 激活代碼:

CrystalReport1.DiscardSavedData = True '自動從數據庫中刷新數據

CrystalReport1.ReportFileName = App.Path "mdb.rpt"

CrystalReport1.WindowState = crptMaximized

CrystalReport1.Action = 1

如果是SQL Server 2000數據庫,激活代碼:

CrystalReport1.Connect = "ODBC;DNS=SQL_db1;UID=" Text4.Text ";PWD=" Text5.Text

";DSQ=db1" '連接SQL Server服務器的ODBC

CrystalReport1.DiscardSavedData = True '自動從數據庫中刷新數據

CrystalReport1.ReportFileName = App.Path "sql.rpt"

CrystalReport1.WindowState = crptMaximized

CrystalReport1.Action = 1