请高手指点我怎么做个水晶报表,要求:
先下载我的VB工程:http://download.csdn.net/source/2993026 或者 谁有实例可以给个我参考,谢谢!!!按一下Button1, 然后水晶报表的内容就= Select MD001 BOM,MD002 序号,RTRIM(MD003) 品号 from BOMMD Where MD003='" & TextBox1.Text & " '
表中的列MD001符合手工输入 TextBox1.Text中内容就显示到水晶报表rptClient.rpt中去,然后可以打印或导出XLS.
先下载我的VB工程:http://download.csdn.net/source/2993026 或者 谁有实例可以给个我参考,谢谢!!!按一下Button1, 然后水晶报表的内容就= Select MD001 BOM,MD002 序号,RTRIM(MD003) 品号 from BOMMD Where MD003='" & TextBox1.Text & " '
表中的列MD001符合手工输入 TextBox1.Text中内容就显示到水晶报表rptClient.rpt中去,然后可以打印或导出XLS.
水晶报表绑定数据集,导出时应该用ExportFormatType.Excel
其他信息: 加载报表失败。出错代码如下[红色的rd.Load(reportPath)]:Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.EnginePublic Class Form1 Dim AConnection As SqlConnection '声明这些SQL的类 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AConnection = New SqlConnection("Data Source=ERPSERVER;Initial Catalog=XH201101;USER ID=sa;PWD=p@ssw0rd")
AConnection.Open() Dim da As New SqlDataAdapter("Select MD001 BOM,MD002 序号,RTRIM(MD003) 品号 from BOMMD Where MD003='" & TextBox1.Text & " '", AConnection) Dim ds As New DataSet() da.Fill(ds, "BOMMD") Dim reportPath As String = Application.StartupPath + "\rptClient.rpt.rpt" Dim rd As New ReportDocument() rd.Load(reportPath) rd.SetDataSource(ds.Tables(0).DefaultView) Me.rptVew.ReportSource = rd
End Sub
工程文件:
http://download.csdn.net/source/3002733用VS2008开发的
http://d.download.csdn.net/down/2993026/mosenyou8