急求水晶报表如何将多个表组合成在一起显示

2005-07-08 05:06:47 256 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

打印水晶报表（作者：杨先金；撰写时间：2019年4月23日） 1、首先要安装水晶报表，这一步必不可少，安装好了之后，在你的项目里面新建一个文件夹，在这个文件夹里面添加新建项，选择数据集，然后就是添加数据源，这个数据源可以是数据库里的某张表，也可以是自定义的表，在这里我要的表在数据库里并不存在，是由多张表组合成的表，因此就需要自定义一张表作为数据源。 2、自定义数据源：给它设置标题、表头以及各个字段，当然也不... 阅读详情

我在水晶报表中现在可以组合两个表在一起显示但在组合第三个表时老提示搜索引擎错误，但是我单表测试却没有问题，是怎么回事请大家帮解答一下。以下是代码：
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class jl_jlform
Inherits System.Web.UI.Page
Dim sql_conn As SqlConnection
Dim sql_data As SqlDataAdapter
Dim sql_dataset As dataset

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub
Protected WithEvents CrystalReportViewer1 As CrystalDecisions.Web.CrystalReportViewer

'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim opt As New ReportDocument
sql_conn = New SqlConnection("server=192.168.8.50;uid=1;pwd=1;database=nbjl_data")
sql_dataset = New DataSet
sql_conn.Open()

sql_data = New SqlDataAdapter("select * from jl_xtgz", sql_conn)
sql_data.Fill(sql_dataset, "jl_xtgz")
opt.Load(Server.MapPath("jl_gzrpt.rpt"))
opt.SetDataSource(sql_dataset)

sql_data = New SqlDataAdapter("select * from jl_car", sql_conn)
sql_data.Fill(sql_dataset, "jl_car")
opt.Load(Server.MapPath("jl_carrpt.rpt"))
opt.SetDataSource(sql_dataset)

sql_data = New SqlDataAdapter("select bz as zyjs from jl_water", sql_conn)
sql_data.Fill(sql_dataset, "jl_zyjs")
opt.Load(Server.MapPath("jl_zyjsrpt.rpt"))
opt.SetDataSource(sql_dataset)

sql_data = New SqlDataAdapter("select * from jl_water", sql_conn)
sql_data.Fill(sql_dataset, "jl_water")
opt.Load(Server.MapPath("jl_waterrpt.rpt"))
opt.SetDataSource(sql_dataset)

sql_conn.Close()
sql_conn.Dispose()

Dim fname As String
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
Dim crExportOptions As ExportOptions

fname = "c:\temp.pdf"
crDiskFileDestinationOptions = New DiskFileDestinationOptions
crDiskFileDestinationOptions.DiskFileName = fname
crExportOptions = opt.ExportOptions
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With
opt.Export()
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = "application/pdf"
Response.WriteFile(fname)
Response.Flush()
Response.Close()
End Sub

End Class

...全文